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This publication describes how to use the MVS/Extended 
Architecture Data Facility Product utility programs to 
manipulate system and user data and data sets. 


This publication contains the following major parts: 


"Introduction™ summarizes the utility programs and 
information on the differences among system, data set, and 
independent utility programs. The introduction contains 
basic information about how the programs are executed and 
about the utility control statements used to specify program 
functions. New or infrequent users of the utility programs 
should give particular attention to the introduction. 


"Guide to Utility Program Functions" contains a table, 

arranged in alphabetic order, of utility program functions 
and the programs that perform them. This table enables you 
to find the program that can do what you need to have done. 


"Invoking Utility Programs from a Problem Program" contains 
a description of the macro instructions used to invoke a 
utility program from a problem program rather than executing 
the utility program by job control statements or by a 
procedure in the procedure library. This section should be 
read only if you plan to invoke a utility program from a 
problem program. 


The remainder of the book contains individual chapters for 
each utility program arranged in alphabetic order. For a 
discussion of the organization of these chapters, see 
"Organization of Program Descriptions" on page iv. 


Appendix A, “Exit Routine Linkage™ contains information 
about linking to and returning from optional user-supplied 
exit routines. This appendix should be read only if you 
plan to code or use an exit routine. If you are coding an 
exit routine, this appendix provides linkage conventions, 
descriptions of parameter lists, and return codes. If you 
are using an existing exit routine, you may be interested in 
the meaning of return codes from the exit routine. 


Appendix B, "DD Statements for Defining Mountable Devices" 
contains a review of how to define mountable volumes to 
ensure that no one else has access to them. For a 
definitive explanation of this subject, see MVS/Extended 
Architecture JCL, GC28-1148. | 


Appendix C, "Processing User Labels" describes the 
user-label processing that can be performed by IEBGENER, 
IEBCOMPR, IEBPTPCH, IEHMOVE, and IEBUPDTE. This appendix 
should be read only if you plan to use a utility program for 
processing user labels. 


Appendix D, "IEHLIST VTOC Listing™ provides a sample of the 


volume table of contents listing produced by IEHLIST, 
including a detailed explanation of fields. 
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ROGRAM DESCRIPTIONS 
To enable you to find information more easily, program a 
descriptions are all organized, as much as possible, in the same ( _ 
way. Most programs are discussed according to the following Me 
pattern: 


Introduction to and description of the functions that can be 
performed by the program. This description typically 
includes an overview of the program's use, definitions of 
terms, illustrations, etc. | 


Functions supported by the utility and the purpose of each 
function. 


Input and output Cincluding return codes) used and produced 
by the program. 


Control of the program through job control statements and 
utility control statements. Explanations of utility control 
statement parameters are presented in alphabetic order in 
tabular format, showing applicable control statements, 
syntax, and a description of the parameters. Any general 
information, restrictions, and relationships of a given 
utility control statement to other control statements are 
described in the sections concerning the statements or in 
the section for restrictions. 


Examples of using the program, including the job control 
statements and utility control statements. 


In order to use this book efficiently, you should be familiar 
with the following: 


LONS 


Job control language 
Data management 


Virtual storage management 


You should be familiar with the information presented in the 
following publications: 


VS/Extended Architec System , 
Volumes 1 and 2 , GC28- 1376 mana GC28— 377, contains a 
complete listing and explanation of the messages and codes 
issued by MVS/XA utility programs. 


MVS/Extended Architecture JClL User's Guide, GC28-135l, 


contains a description of the use and coding of the job 
control language. 


MVS/Extended Architecture Data Administration Guide, 
GC26-4140, describes the input/output facilities of the 


operating system. It contains information on record 
formats, — data set organization, access méthods, data set 
disposition, space allocation, and generation data sets. 


tende rchitect ini j : Ma 


MVS/7Extended Architecture Data Administration: Macro 
Instruction Reference, GC26-4141, contains a description of 
the WRITE macro instruction; it also contains the format and 
contents of the DCB 


VS/Extende chi 


Supervisor Services ane Ma acro Peer Finne GC28-1154, Pi 


contains information on how to use the services of the a 
supervisor. Among the services of the supervisor are t 
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program management, task creation and management, and 
Virtual storage management. 


Within the text, references are made to the publications listed 
in the table below. 


Short Title Publication Title Order Number 


Access Method MVS/ZExtended Architecture GC26-4135 
Services Integrated Catalog 
Reference Administration: Access 
Method Services Reference 


MVSZExtended Architecture 
VSAM Catalog 


Administration: Access 
Method Services Reference 


MVSZExtended Architecture 

























GC26-4136 


GC26-4138 
Conversion MVS7Extended Architecture GC28-1143 
Notebook Conversion Notebook 

GC26-4140 


GC26-4141 


GC26-4267 


















Catalog 


Administration Catalog Administration 
Guide Guide 


























Data MVS/Extended Architecture 
Administration Data Administration Guide 


Guide 


Data 













MVS/ZExtended Architecture 


Administration: Data Administration: Macro 
Macro Instruction Reference 
Instruction 


Reference 
















Data Facility MVSZExtended Architecture 


Product: | Data Facility Product 
Customization Version 2: Customization 















Debugging MVS/Extended Architecture LC28-1164} 
Handbook Debugqqing Handbook, Volumes LC28-1165 
1 through 5 LC28-1166 

LC28-1167 

LC28-1168 













Device Support Facilities 
User's Guide and Reference 






Device Support 
Facilities 
User's Guide 
and Reference 


DFDSS: User's 
Guide and 
Reference 


IBM 3480 


GC35-0033 
SC26-4125 


GC35-0098 


1 All five volumes may be ordered under one order number, 
LBOF-1015 












Data Facility Data Set 
Services: User's Guide 
Reference 


IBM 3480 Magnetic Tape 















Magnetic Tape Subsystem: Planning and 
Subsystem: Lgratio ul 


Planning and 
Migration Guide 


Note: 
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Short Title _ 
















Order Number 






Publication Title 








IBM 3480 IBM_3480 Magnetic Tape GC35~-0099 © 
Magnetic Tape ubsystem: User's Guide | i 
Subsystem: 











User's Guide 


IBM 3800 






IBM 3800 Printing Subsystem | GC26-3846_ 



















Printing Programmer's Guide 
Subsystem 
Programmer's 

| Guide 





JCL User's MVS/Extended Architecture GC28-1351 | 
Guide JCL User's Guide 


| JCL Reference MVS/Extended Architecture GC28-1352 
JCL Reference 


Reference Reference Manual for the GA26-1653 
Manual for the 3800 Printing Subs e 

IBM 3800 

Printing 

Subsystem 


Linkage Editor | MYS/Extended Architecture GC26-4143 
and Loader Linkage Editor and Loader 








User's Guide 


Magnetic Tape MVS/ZExtended Architecture GC26-4145 
Labels and File Magnetic Labels and File 

Structure Structure Administration 

Supervisor MVS/Extended Architecture GC28-1154 
Services and System Programming Library: 

Macro Supervisor Services and 

Instructions Macro Instructions 


System—Data MVS7Extended Architecture | GC26-4149 
Administration System—-Data Administration 








System Messages MVSZExtended Architecture GC28-1376 
Message Library: Syste and 
Messages, Volumes 1 and 2 GC28-1377 














VSAM 
Administration 
Guide 


MVS7Extended Architecture GC26-4151 


VSAM Administration Guide 


INED IN THIS BOO 


There are several specialized utilities not discussed in this | 
book. The following list shows their names and functions, and 


indicates which book contains their explanation. 


Function Reference 


Allows users to define, manipulate, MVS/Extended 
or delete VSAM data sets, define Architecture Catalog 


and manipulate VSAM catalogs, and Administration Guide, 
copy, print, or convert SAM and GC26-4138 
ISAM data sets to VSAM data sets. 
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Device Support Used for the initialization and Device Support 
Facilities maintenance of DASD volumes. Facilities User's 


Guide and Reference, 
GC35-0033 


Data Facility Describes DASD utility functions Data Facility Data Set 


Data Set Services such as dump/restore and reduction Services: User's Guide 
of free space fragmentation and Reference, 
$C26-4125 


Offline IBM Describes the Offline IBM 3800 Offline IBM 3800 
3800 Utility Utility program, used with the IBM Utility, SH20-9138 
ihr Tape-to-Printing Subsystem 
eature. 
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| RELEASE 3.0, JUNE 1987 
ENHANCEMENT 


Support for the years beyond 1999 has been added to the JTEHLIST 
system utility. 


| CUSTOMIZATION RESTRUCTURE 


( 


SERVICE CHANGES 


Most of the text from Appendixes A and C has been removed and 
placed in : : 


The chapter on the IFHSTATR program has been completely 
replaced. 


Examples throughout the book have been corrected, where 
necessary, with respect to beginning the continued portion of 
2 control and utility control statements in the correct 
columns. | 


A formula has been added for calculating the region size needed 

when executing the IEBGENER program Cin cases where you specify 

the number of buffers to be used rather than use the default 

poner A new IEBGENER example has been added to illustrate 
is. 


ENHANCEMENTS AND NEW SUPPORT 


NEW DEVICE SUPPORT 


° Appendix D, "IEHLIST VTOC Listing" has been added. 
e Examples have been updated to reflect 3380 support. 


e The IEBCOPY, IEBGENER, IEHINITT, IEHLIST, and IEHPROGM 
chapters have been updated. | 


e IBM 4248 Printer 
The FCB Statement in IEBIMAGE can now be used to create 
forms control buffer modules in a form appropriate for use 
on the IBM 4248 Printer. Information to support the 4248 
has been added to the IEBIMAGE chapter. 

e IBM 3262 Model 5 Printer 


Information to support the IBM 3262 Model 5 Printer has been 
added to the IEBIMAGE chapter. 


e IBM 4245 Printer 


Information to support the IBM 4245 Printer has been added 
to the IEBIMAGE chapter. 
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The Preface includes the new order numbers for Version 2. 
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INTRODUCTION 


STEM UTILI 


D $ 


MVS/Extended Architecture Data Facility Product provides utility 
programs to assist in organizing and maintaining data. Each 
utility program falls into one of three classes of programs, 
determined by the function performed and the type of control of 
the utility. 


OGRAMS 


System utility programs are used to maintain and manipulate 
system and user data sets. Entire volume manipulation, for 
example, copying or restoring, is also provided. These programs 
must reside in an authorized library and are controlled by JCL 
statements and utility control statements. 


They can be executed as jobs or can be invoked as subroutines by 
authorized programs. The invocation of utility programs and the 
linkage conventions are discussed in "Invoking Utility Programs 
from a Problem Program" on page l12. 


Figure 1 is a list of system utility programs and their purpose. 


System 
Utility Purpose 
IEHATLAS To assign alternate tracks and recover usable data 


records when defective tracks are indicated 
IEHINITT To write standard labels on tape volumes 
IEHLIST To list system control data 
ITEHMOVE To move or copy collections of data 
IEHPROGM To build and maintain system control data 


IFHSTATR To select, format, and write information about tape 
errors from the IFASMFDP tape 


Figure 1. System Utility Programs 


OGRAMS 


Data set utility programs are used to reorganize, change, or 
compare data at the data set and/or record level. These 
programs are controlled py JCL statements and utility control 
statements. 


These utilities manipulate partitioned, sequential, or indexed 
sequential data sets provided as input to the programs. Data 
ranging from fields within a logical record to entire data sets 
can be manipulated. 


Data set utility programs can be executed as jobs or can be 
invoked as subroutines by a calling program. The invocation of 
utility programs and the linkage conventions are discussed in 
"Invoking Utility Programs from a Problem Program" on page 12. 


Utility programs that manipulate data sets and are included in 


this manual cannot be used with VSAM data sets. Information 
about VSAM data sets can be found in VSAM Administration Guid 
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IEHMOVE and IEBCOPY, do not support Virtual 


Input/Output (VIO) data sets. 


Figure 2 is a list of data set utility programs and their 


Purpose. 


Data Set 
Utility 
LTEBCOMPR 


ITEBCOPY 


IEBDG 
IEBEDIT 


ITEBGENER 
IEBIMAGE 
IEBISAM 


IEBPTPCH 


ITEBUPDTE 


Figure 2. 


PROGRAM 


Purpose 


To compare records in sequential or partitioned data 
sets 


To copy, compress, or merge partitioned data sets, to 
add RLD count information to load modules, to select 
or exclude specified members in a copy operation, and 
to rename and/or replace selected members of 
partitioned data sets 


ae a test data set consisting of patterned 
ata | 


To selectively copy job steps and their associated 
JOB statements 7 


To copy records from a sequential data set or to 
convert a data set from sequential organization to 
partitioned organization 


To modify, print, or link modules for use with the 
IBM 3800 Printing eipaee vem the IBM 3262 Model 5, or 
the 4248 printer | 7 


To place source data from an: indexed sequential data 
set into a sequential data set ina format suitable 
for subsequent reconstruction 


To print or punch records that reside in a sequential 
or partitioned data set 


To incorporate changes to sequential or partitioned 
data sets 


Data Set Utility Programs 


Independent utility programs are used to prepare devices for 


system use when the operating system is not available. 


They 


operate outside of, and in support of, the operating system, are 
controlled by utility control statements, and cannot be invoked 


by a calling program. 


This publication addresses only the 


ICAPRTBL utility program. 


Figure 3 on page 3 shows the independent utility program and its 


Purpose. 
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ia Independent 
_—. Utility Purpose 


ICAPRTBL To load the forms control and universal character 
set buffers of the IBM 3203-5 or 3211 printer after 
an unsuccessful attempt to IPL, with the 3203-5 or 
3211 assigned as the output portion of a composite 
console. ICAPRTBL operates only in a System/370 
environment but supports MVS/XA with stand-alone 
buffer loading for the IBM 3211 printer. ICAPRTBL 
does not function with any IBM processor in 
extended architecture mode. 


Figure 3. Independent Utility Program 


The selection of a specific program depends on the nature of the 
job to be performed. For example, renaming a data set involves 
modifying system control data. Therefore, a system utility 
program can be used to rename the data set. In Some cases, a 
specific function can be performed by more than one program. 
"Guide to Utility Program Functions™ on page 8 will help you 
find the program that performs the function you need. 


DASD AND TAPE DEVICE SUPPORT 
Except where noted, all the following DASD and tape devices are 
supported by all utility programs. Restrictions and peculiar 
device support are noted in the individual utility sections. 
The table below indicates specific devices supported, and the 


uae notation to be used to reference them. The term wns? includes 
a all direct access storage devices listed below. 


[Bevis nmer [peviees 
DASD: 2305-2 2305-2 


3330 3330-1, 3330-2, 3333 and 3350 
in 3330-1 compatibility mode 

3330-1 3330-11, 3333-11 and 3350 in 
3330-11 compatibility mode 

3330V 3850 MSS Virtual Volumes 


3340 3340, 3344 Cboth 35 & 70 
megabyte models) 









[seo eo 


Figure 4. Utility Programs-Supported DASD and Tape Devices 
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CONTROL 


System and data set utility programs are controlled by job 
control statements and utility control statements. The 
independent utility program is controlled by utility control 
statements only; because this program is independent of the 
operating system, job control statements are not required. The 
job control statements and utility control statements necessary 
to use utility programs are provided in the major discussion of 
each utility program. 


JOB CONTROL STATEMENTS 





A system or data set utility program can be introduced to the 
operating system in different ways: 


e Job control statements can be included in the input stream. 


e Job control statements, placed in a procedure library or 
defined as an inline procedure, can be included by means of 
the EXEC job control statement. 


@ A utility program can be invoked by a calling program. 


If job control statements are placed in a procedure library, 
they should satisfy the requirements for most applications of 
the program; a procedure, of course, can be modified or 
supplemented for applications that require additional 
parameters, data sets, or devices. The data set utility 
IEBUPDTE can be used to enter a procedure into a procedure 
library; see "IJEBUPDTE Program™ on page 272. 


A job that modifies a system data set Cidentified by SYS1.) 
must be run ina single job environment; however, a job that 
uses a system data set, but does not modify it, can be run ina 
multiprogramming environment. The operator should be informed 
of all jobs that modify system data sets. 


DD statements should ensure that the volumes on which the data 
sets reside cannot be shared when update activity 18S being 
performed. 


Job control statements can be continued on subsequent lines, but 
the continued line must begin in column 4 through 16. No 
continuation mark is required in column 72. 


UTILITY CONTROL STATEMENTS 


Utility control statements are used to identify a particular 
function to be performed by a utility program and, when 
required, to identify specific volumes or data sets to be 
processed. 


The control statements for the utility programs have the 
following standard format: 


label operation operand 


The label symbolically identifies the control statement and, 
with the exception of system utility program IEHINITT, can be 
omitted. When included, a name must begin in the first position 
of the statement and must be followed by one or more blanks. It 
can contain from one to eight alphameric characters, the first 
of which must be alphabetic. 


The operation identifies the type of control statement. It must 
be preceded and followed by one or more blanks. 


The operand is made up of one or more keyword parameters, 
separated by commas. The ecperand field must be preceded and 
followed by one or more blanks. Commas, parentheses, and blanks 
can be used only as delimiting characters. 
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Comments can be written in a utility statement, but they must be 
separated from the last parameter of the operand field by one or 
more blanks. 





Continuing Utility Control Statements 


Utility control statements are coded on cards or as online input 
and are contained in columns 1 through 71. A statement that 
exceeds 71 characters must be continued on one or more 
additional lines. A nonblank character must be placed in column 
72 to indicate continuation. A utility statement can be 
interrupted either in column 71 or after any comma. 


The continued portion of the utility control statement must 
begin in column 16 of the following statement. 


i Note: The IEBPTPCH and IEBGENER utility programs permit certain 
exceptions to these requirements (see the applicable program 
description). 


The utility control statements are areeuesed in detail, as 
applicable, in the remaining chapters. 


Restrictions 


® Unless otherwise indicated in the description of a specific 
utility program, a temporary data set can be processed by a 
utility program only if you specify the complete name 
generated for the data set by the system (for example, 
DSNAME=SYS82296 .T000051.RP001.JOBTEMP.TEMPMOD). 


° The utility programs described in this book do not normally 
support VSAM data sets. For certain exceptions, refer to 
the various program descriptions. 


( e Most utility programs do not support ISCII/ASCII tape data 

sets. (Conversion from EBCDIC codes to ISCII/ASCII codes 
will result in loss of data.) Refer to the IEHINITT program 
for specific exceptions. 


0 CON 0 
A uniform system of notation describes the format of utility 
commands. This notation is not part of the language; it merely 


provides a basis for describing the structure of the commands. 


The command format illustrations in this book use the following 


conventions: 
e Brackets [ ] indicate optional parameters. 
e Braces {€ } indicate a choice of entry; unless a default is 


indicated, you must choose one of the entries. 


e Items separated by a vertical bar (|) represent alternative 
items. No more than one of these items may be selected. 


e An ellipsis ¢€...) indicates that multiple entries of the 
type immediately preceding the ellipsis are allowed. 


e Other punctuation Cparentheses, commas, spaces, etc.) must 
be entered as shown. A space 1S indicated by a blank. 


® BOLDFACE type indicates the exact characters to be entered, 


except as described in the bulleted notes above. Such items 
must be entered exactly as illustrated. 


es, e Lowercase underscored type specifies fields to be supplied 
( by the user. 
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@ BOLDFACE UNDERSCORED type indicates a default option. If 
the parameter is omitted, the underscored value 1S assumed. 





keyword=device=list 
The term Keyword is replaced by VOL, FROM, or TO. 


The term device is replaced by either a generic name, for 
example, 3380; or an esoteric name, for example, DISK, if this 
esoteric name has been generated into your system. For DASD, 
the term list is replaced by one or more volume serial numbers 
separated by commas. When there is more than one volume serial 
number, the entire list field must be enclosed in parentheses. 


For tapes, the term list is replaced by either one or more 
volume serial number/comma/data set sequence number pairs. Each 
pair 1s separated from the next pair by a comma. When there is 
more than one pair, the entire list field must be enclosed in 
parentheses; for example: FROM=34600=CtapeA,1,tapeB,1). 


NSTALL ON CONSIDERATIONS 


The System/’370 versions of Device Support Facilities (Releases ] 
through 5) are not applicable for Data Facility Product 
installations. You must order and install the MVS/XA version of 
Device Support Facilities Release 6 (5655-257) to run in an 
MVS/XA Data Facility Product environment. 


Releases 1.0 and 1.1 of Data Facility Data Set Services (DFDSS) 
are not applicable for Data Facility Product installations. You 
must install DFDSS Release 1.2 or higher to run in an MVS/XA 
Data Facility Product environment. Installation of Release 1.2 
supersedes Release l1.l. 


The following utilities are not included as support for the Data ~ 
Facility Product for MVS/XA. 


e IBCDASDI—Disk initialization functions are described in 
Device Support Facilities User's Guide and Reference. 


e IBCDMPRS—Stand-alone disk restore functions are described. 
I FDSS: User's Guide efere 


° ITEHDASDR—Disk initialization functions are described in 
evice Support Facilities User's Guide and Reference. Dump 
restore functions are described in DEDSS: User's Guide and 
Reference. | 


Note: DFDSS does not support the dump format produced by 
IEHDASDR or DRWDASDR. Dumps taken by DFDSS in a System/3/70 
environment may be restored by DFDSS in an MVS/XA environment. 


e Analysis Program-l1 CAP-1)—~Functions to aid in the analysis 
of DASD errors are described in Device Support Facilities 
ser' i and e ; 
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SPECI EFERENCING AIDS 


on To help you locate the correct utility program for your needs 
( and locate the correct example of the program for reference two 
| | special referencing aids are included in this publication. 
To locate the correct utility program, refer to Figure 6 on 
page 8 under "Guide to Utility Program Functions." 


To locate the right example, use the figure (called an “example 
directory") that precedes each program's examples. Figure 5 
shows a portion of the example directory for ITEHMOVE. The 
figure shows that IEHMOVE Example 1 is an example of moving a 
sequential data set and that IEHMOVE Example 2 is an example of 
copying a sequential data set. 


MOVE Disk Source volume is demounted 1 
Sequential after job completion. 
-_ 























Three cataloged sequential 
data sets are to be copied. 
The disks are mountable. 


sen 


Sequential 
Figure 5. Locating the Correct Example 
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GUIDE TO UTILITY PROGRAM FUNCTIONS 


oo 


Figure 6 is a list of tasks that the utility programs can be 
used to perform. The left-hand column shows tasks you might 
want to perform. The middle column more specifically defines 
the tasks. The right-hand column shows the utility programs 
that can be used for each task. Notice that, in some cases, 
more than one program may be available to perform the same task. 


Task Options 
Add 

“Alter in 
place 


a password 


a load module 


tracks to a DASD volume and 
recover usable data 


“Assign 
alternate | 


, Catalog a data set in an OS CVOL 


data set organization 
logical record length 


Change | 


partitioned data sets 
sequential data sets records 


Compare 


Compress in a partitioned data set 


place 


a sequential data set created as 
a result of an unloa 


Convert to | 
partitioned 


ce 
Ou 


sequential data sets 


Convert to 
sequential 


a partitioned data set 


an indexed sequential data set 


Copy a direct access volume 
a load module 


a partitioned data set 


a volume of data sets 


an indexed sequential data set 


job steps | 


selected members 


sequential data sets 


Figure 6 (Part 1 of 4). Tasks and Utility Programs 
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Utility 
Program 
ITEHPROGM 


IEBCOPY 
IEHATLAS 


TEHPROGM 


IEBUPDTE 
TEBGENER 


IEBCOMPR > 


IEBCOPY 


TEBCOPY 


ITEBUPDTE, 
TEBGENER 
TEBUPDTE, 
IEBCOPY 
IEBISAM, 
IEBDG 
TEHMOVE 
TEBCOPY 
IEBCOPY, 
TEHMOVE 
TEHMOVE 
IEBISAM 
IEBEDIT 
IEBCOPY, 
TEHMOVE 
IEBGENER, 


ITEHMOVE, 
TEBUPDTE 








F “ Ss 
“ke we oe 


/ 














Utility 
Program 


IEBCOPY 


Task Options 





a backup copy of a partitioned 
data set 


Create 


a character arrangement table TEBIMAGE 


module 
ITEBIMAGE 
TEBIMAGE 


a copy modification module 


a 3800 or 4248 forms control 
buffer module 


a graphic character modification TEBIMAGE 


module 
TEBIMAGE 
IEBUPDTE 
IEBDG 


a library character set module 


a library of partitioned members 


a member 


IEBGENER 
IEBUPDTE 


IEBDG 





a sequential output data set 
ITEBDG 
IEBEDIT 
TEHPROGM 
TEHPROGM 


an indexed sequential data set 
an output job stream 
Delete a password 


catalog entries 





( records ina partitioned data set TEBUPDTE 
e. * Edit and a sequential data set IEBGENER, 
convert to LTEBUPDTE 





partitioned 


Edit and 
COPY 


a job stream ITEBEDIT 


TEBGENER, 
TEBUPDTE 


IFHSTATR \ 


a sequential data set 


Edit and 
list 


Edit and 
print 


Edit and 
punch 


error statistics by volume CESV) 
records 


a sequential data set ITEBPTPCH 


a sequential data set ITEBPTPCH 


a procedure into a procedure ITEBUPDTE 


library 


Enter 
IEBCOPY, 
ITEHMOVE 
IEBCOPY 
IEBGENER 
IEBDG 


a partitioned data set member 
from a copy operation 


Exclude 


Expand a partitioned data set 
a sequential data set 


test data 


Generate 


Tasks and Utility Programs 


f 
“Tl 
}: 
a 
c 
% 
@ 
oN 
om 
- 
ty) 
> 
ct 
N 
oO 
=h 
iN 
~ 
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4 7 Utility =a 
Task Options | Program ff 


alternate tracks on a DASD volume TEHATLAS ie 


Include changes to members or sequential TEBUPDTE 
data sets | 

Insert into a partitioned data set | ITEBUPDTE 

records 


a volume table of contents ITEHLIST 


number of unused directory blocks IEBCOPY 
and tracks 


partitioned directories | ITEHLIST | 


Load a previously unloaded partitioned ILEBCOPY 
data set 


an indexed sequential data set TEBISAM 
an unloaded data set IEHMOVE 
UCS and FCB buffers of a 3211 ICAPRTBL 


Merge partitioned data sets IEWHMOVE, 

| IEBCOPY 
Modify a partitioned or sequential IEBUPDTE pou 
| data set | , S 


Move a volume of data sets IEHMOVE ad 
partitioned data sets ITEHMOVE 
sequential data sets LEHMOVE 


Number | in a new member ITEBUPDTE 
records 


| ina partitioned data set LEBUPDTE 


Password add a password IEHPROGM | 
protect | 
delete a password ITEHPROGM ‘ 

| 


G@) 
@ 
rt 





sequential data sets ITEBGENER, 
IEBUPDTE, 
TEBPTPCH 


Print 











Figure 6 (Part 3 of 4). Tasks and Utility Programs 
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resk program 


a sequential data set IEBGENER, 
LTEBUPDTE 


ITEHATLAS 





data from defective tracks on 
direct access volumes 


Recover 





a partitioned data set 


Re-create IEBCOPY 


Rename a partitioned data set member IEBCOPY, 

ILEHPROGM 

a sequential or partitioned IEHPROGM 
data set 


members ITEBUPDTE 
LEBUPDTE 


records ina partitioned data set ITEBUPDTE, 
IEBCOPY 


selected members IEBCOPY 
selected members in a move or IEBCOPY, 
copy operation ITEHMOVE 
Scratch a volume table of contents IEHPROGM 


Unload a partitioned data set ITEHMOVE, 
IEBCOPY 


a sequential data set ITEHMOVE 


IEBISAM 
IEBUPDTE 





records ina member 


an indexed sequential data set 


Update in a partitioned data set 


place 





Figure 6 (Part 4 of 4). Tasks and Utility Programs 
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INVOKING UTILITY PROGRAMS FROM A PROBLEM PROGRAM 


Utility programs can be invoked by a problem program through the 
use of the ATTACH or LINK macro instruction. 


The problem program must supply the following to the utility 


program: 


6 The information usually specified in the PARM parameter of 
the EXEC statement 


@ The ddnames of the data sets to be used during processing by 
the utility program 


The following programs may execute authorized functions: 
ITEBCOPY, IEHATLAS, IEHINITT, IEHMOVE, IEHPROGM 


When executing an authorized function, the calling program must 
be authorized via the Authorized Program Facility CAPF). 


For details on program authorization, see Conversion Notebook. 


When IEHMOVE, IEHPROGM, or IEHLIST is dynamically invoked in a 
job step containing a program other than one of these three, the 
DD statements defining mountable devices for the IEHMOVE, 
ITEHPROGM, or IEHLIST program must be included in the job stream 
ahead of DD statements defining data sets required by the other 
program. 


LINK OR ATTACH MACRO INSTRUCTION 


l2 


The LINK or ATTACH macro instruction can be used to invoke a : ; 
utility program from a problem program. ee” 


The format of the LINK or ATTACH macro instruction is: 


[label] {LINK | ATTACH} EP=progname 
» PARAM=(optionaddrl»ddnameaddr] 


[,hdingaddr]) 
»VL=1 





where: 


EP=progname 
specifies the name of the utility program. 


PARAM= 
specifies, as a sublist, address parameters to be passed 
from the problem program to the utility program. These 
values can be coded: 


optionaddr 
specifies the address of an option list, OPTLIST, 
which 1s usually specified in the PARM parameter of 
the EXEC statement. This address must be written for 
all utility programs. 
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ddnameaddr 
specifies the address of a list, DDNMELST, of 
alternate ddnames for the data sets used during 
utility program processing. If standard ddnames are 
used and this is not the last parameter in the list, 
it should point to a halfword of zeros. If it is the 
last parameter, it may be omitted. 


hdingaddr 
specifies the address of a 6~-byte list, HDNGLIST, 
which contains an EBCDIC page count for the output 
device. If hdingaddr is omitted, the page number 
defaults to l. 


VL=1 
specifies that the sign bit of the last fullword of the 
address parameter list is to be set to l. 


Figure 7 shows these lists as they exist in the user's DC area. 
Note that the symbolic starting addresses for OPTLIST and 
DDNMELST fall on halfword boundaries that are not also fullword 
boundaries. 


Full word Full word 
boundary boundary 

F  Halfword & 
boundary 











Half word 
bou a 





Starting address of 
the optionaddr re 
parameter list_.wi” 

(O PT L | ST ) ge 


Starting address of ah 
theddnameaddr _, an 
parameter list i” 
(DDNMELST) 


Starting address of 
the hdingaddr 
parameter list 
(HDNGLIST) a 


CHES ALIENS 

Pe . ie ,00| 04| 00] 00 | 
ll 

CD 


Figure 7. Typical Parameter Lists 








The PARAM parameter of the LINK macro instruction in the calling 
program provides the utility program with the symbolic addresses 
of the parameter lists shown in Figure 7, as follows: 


e The option list, OPTLIST, which includes the number of bytes 
in the list Chexadecimal 08) and the NOVERIFY option 


e The alternate ddname list, DDNMELST, which includes the 
number of bytes in the list (hexadecimal 48) and alternative 
names for the SYSIN INPUT11, SYSUTI1 INPUTSET, and SYSUT2 
WHICHPTR data sets 
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e The heading list, HDNGLIST, which includes the number of 
bytes in the list Chexadecimal 04) and indicates the 
starting page number Chexadecimal OA, or decimal 10) for | 
printing operations controlled through the SYSPRINT data set ‘eY 
The option list, OPTLIST, must begin on a halfword boundary that 
is not also a fullword boundary. The two high-order bytes 
contain a hexadecimal count of the number of bytes in the 
remainder of the OPTLIST. (For all programs except IEHMOVE, 
IEHLIST, IEHPROGM, IEHINITT, IEBUPDTE, and IEBISAM, the count 
must be zero.) OPTLIST is free form, with fields separated by 
commas. No blanks. or zeros should appear in the list. 


The ddname list, DDNMELST, must begin on a halfword boundary 
that is not also a fullword boundary. The two high-order bytes 
contain a count of the number of bytes in the remainder of the 
list. Each name of fewer than 8 bytes must be left aligned and 
padded with blanks. If an alternate ddname is omitted from the 
list, the standard name is assumed. If the name is omitted 
within the list, the 8-byte entry must contain binary zeros. 
Names can be omitted from the end by merely shortening the list. 
Figure 8 shows the sequence of the 8-byte entries in the ddname 
list pointed to by ddnameaddr. 


Standard Name 


00000000 

00000000 

00000000 

00000000 

SYSIN 

SYSPRINT 

00000000 

SYSUTI1 

SYSUT2 ex 
0 SYSUT3 — 
1 SYSUT4 ae 


Figure 8. Sequence of DDNMELST Entries 


m 
a | 
et 
“s 
< 


me O COA HDUDGN RH 


The first 2 bytes of HDNGLIST contain the length in bytes of the 
heading list. The remaining 4 bytes contain a page number that 
pa aaaaey program is to place on the first page of printed 
output. 


Some utilities, however, use fewer than four bytes per page 
number. Storing a page number that is too large in HDNGLIST 
could cause unpredictable results. For example, if you link to 
IEBIMAGE with a page number of 998 in HDNGLIST, the following 
page numbers result: 


998 
999 
ene 


(and so on) 


In this case, you cannot specify a page number larger than 999. 





14 «MVS/XA Data Administration: Utilities 




















CAP OG 


EXECUTING ICAPRTBL 


ICAPRTBL is an independent utility that operates only ina 
System/’370 environment but supports MVS/XA with stand-alone 
buffer loading. It is used to load the universal character set 
CUCS) buffer and the forms control buffer (FCB) for an IBM 3211 
or 3203-5 Printer. ICAPRTBL does not function with any IBM 
processor in extended architecture mode. 


ICAPRTBL is used when the 3211/3203-5 is assigned as the output 
portion of a composite console and an unsuccessful attempt has 
been made to initialize the operating system because the UCS and 
FCB buffers contain improper bit patterns. ICAPRTBL loads the 
buffers properly so the operating system can be initialized. 


Note: When an operable console printer Keyboard is available, 
peri de are loaded under the control of the operating 
system. 


ICAPRTBL must be loaded from a card reader. Control statements 
must follow the last card of the program. Only one printer can 
be initialized each time the program is executed. 


To execute ICAPRITBL: 


1. Mount the correct train on the printer and ready the 
printer. 


2. Place the object program deck and the control cards in the 
sph reader. Ready the reader and press the END OF FILE 
ey. 


3. Load the object program from the reader by setting the load 
selector switches and pressing the console LOAD key. 


Wait state codes will be displayed in the address portion of the 
PSW for normal termination and for input/output, system, or 
control card errors. Code BOl is issued for normal termination; 
BO2 through BO7 are issued for control card errors; BOA through 
BOC are issued for system errors; and Bll through BID are issued 
for input/output errors. Figure 9 on page 16 shows these codes 
and their meanings. 
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Code Meaning 


BOl Visually check the train image printed on the Sens 
3211/3203-5. 


B02 Missing control card or control card out of order. 
B03 Incorrect JOB statement. 
BOG Incorrect DFN statement. 
BOS Incorrect UCS statement. 
B06 Incorrect FCB statement. 
B07 Incorrect END statement. 


BOA External interrupt. 

BOB Program check interrupt. 
BOC Machine check interrupt. 
Bll Reader not online. 


Bl2 Reader not ready. 


B13 Reader unit check (display low virtual storage locations 
2 through 7 for sense information). 
B14 Reader channel error. 
B15 No device end on reader. 
B19 Printer not online. i % 
BIA Printer not ready. 4 
B1EB Printer unit check (display low virtual storage locations 
2 through 7 for sense information). 
Bic Printer channel error. 
BiD No device end on printer. 


Figure 9. ICAPRTBL Wait-State Codes 


INPUT AND OUTPUT 


ICAPRTBL uses, as input, utility control statements that contain 
images to be loaded into the universal character set and/or the 
forms control buffer. ICAPRTBL produces, as output, properly 
loaded UCS and FCB buffers. 


ONTRO 


ICAPRTBL is controlled by utility control statements. Because 
ICAPRTBL 1s an independent utility program, operating system job 
control statements are not used. 
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UTILITY CONTROL STATEMENTS 


JOB Statement 


DFN Statement 


All utility control statement operands must be preceded and 
followed by one or more blanks. Continuation requirements for 
utility control statements are described in "Continuing Utility 
Control Statements" on page 5 


ICAPRTBL utility control statements are listed in Figure 10. 


Statement Use 
JOB Indicates the beginning of an ICAPRTBL job. 


DFN Defines the address of the 3211 or 3203-5, specifies 
that lowercase letters are to be printed in 
uppercase when the lowercase print train is not 
available, and identifies UCS and FCB image names. 


UCS Contains an image of the characters to be loaded 
into the UCS buffer. 

FCB Defines the image to be loaded into the FCB. 

END Indicates the end of an ICAPRTBL job. 


Figure 10. ICAPRTBL Utility Control Statements 


The JOB statement indicates the beginning of an ICAPRTBL job. 
The format of the JOB statement is: 


[label] JOB Cuser-information] 


The DFN statement is used to define the address of the 3211 or 
3203-5, to specify that lowercase letters are to be printed in 
uppercase when the lowercase print train 1s not available, and 
to identify UCS and FCB image names. 


The format of the DFN statement is: 


ADDR=cuu 
[,FOLD=YINIJ 
C,DEVT=3211/3203-5] 


{,UCS=ucsname|ANIA11] 
[»FCB=fcbname|STD|STD2] 
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UCS Statement 


FCB Statement 


END Statement 


The UCS statement contains an image to be loaded into the UCS 
buffer. 


The format of the UCS Statement ge: 


[ucsname] | ucs | ucs-image 


The FCB statement defines the image to be loaded into the forms 
ete. rae The FCB statement may precede or follow the UCS 
statement. | 


The format of the FCB statement is: 


LPI={6|8} 


»LNCH=(C1,cJLE> (l»o).. e 1) 
» FORMEND=x 





The END statement signals the end of the ICAPRTBL job. 
The format of the END statement is: 


[label] | END [user-inf iond 
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: Applicable 

| ( Control Poe 

| hes Parameters Statements Description of Parameters 
: ADDR DFN ADDR=cuu 


specifies the channel number, c>» and unit 
number, uu, of the 3211 or 3203-5. 


DEVT DFN DEVT=3211/3203-5 

specifies the device type to which the ADDR 
parameter applies. 3211 is the default device 
type. 


FCB DFN FCB=fcbnameI|ISTDISTD2 
specifies a 1l- to 8-character name of the image 
loaded into the forms control buffer. The 
actual image loaded into the buffer 1s not 
affected by this name, but serves as a 
meaningful reference when printed on the 
printer. fcbname should be the same as the FCB 
image being used. STD2 is the default. 


FOLD DFN FOLD=YIN 
specifies whether lowercase letters are to be 
printed as uppercase letters when the lowercase 
see train is not available. The values can be 
coded: 


Y 


specifies that lowercase letters are to be 
printed as uppercase letters when the 
lowercase print train is not available. 


| aan specifies that lowercase letters are not to 
| ( be printed as uppercase letters. This is 
i 3 the default. 


FORMEND FCB FORMEND=~x 

specifies the number of lines (maximum 180) on 
the printer form. For an ll-inch form, spacing 
six lines per inch, x must be 66. 


specifies the channels of the FCB image. Each 
set of parentheses must contain the line number 
(1-180), a comma, and the channel number (1-12) 
to be assigned to that line. One or all of the 
12 channels may be assigned in any order. Each 
set must be separated by commas and the entire 
group surrounded by parentheses. 


LPI FCB LPI={6]8} 
specifies the number of lines per inch that will 


be printed on the document. These values can be 
coded: 


6 





specifies that six lines per inch are to be 
printed. 


specifies that eight lines per inch are to 
be printed. 








ICAPRTBL Program 19 








Applicable | a’ 
Control ee ce 
Parameters Statements Description of Parameters Sao 


ucsS-limage 


information 


ICAPRTIBL EXAMPLES 





UCS=ucsnameANIA11 
is a l to 8 character alphameric name of the 
image loaded into the UCS buffer. This name is 
printed on the printer to serve as a reference 
to the print train being used. 


AN 
is the default for 3203-5 devices. 


All 
is the default for 3211 devices. 


ucsS~image 
specifies characters to be loaded into the UCS 
buffer. The characters must be contained in 
columns 16 through 71. The first UCS statement 
contains the first 56 characters; subsequent 
statements contain continuations of the image to 
be loaded into the UCS buffer. <A continuation 
mark Cany printable character) is required in 
column 72 of a continued UCS image card. 


[user-information] 
specifies user explanation of action and 
comments. 


The examples that follow illustrate some of the uses of nee 
ICAPRTBL. Figure 11 can be used as a quick-reference guide to 

the examples. The numbers in the “Examples™ column refer to 

examples that follow. 


Devices Examples 
3211 1, 2 
3203-5 3» 4 


Figure 11. ICAPRTITBL Example Directory 
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ICAPRTBL EXAMPLE 1 


In this example, a 3211 UCS image €Al1) and an FCB image are 
loaded into the UCS and FCB buffers. 





JOB LOAD All IMAGE 

DFN ADDR=002,FOLD=N 

All UCS 1<.=ITHGFEDCBAXS—-RQPONMLKJ% , &ZYXWVUTS/9#0987654321<.=IHGF 
EDCBAX$-RQPONMLKJ%, &ZYXWVUTS/9#0987654321<.=IHGFEDCBAxX$- 
RQPONMLKJ%, &ZYXWVUTS/0#0987654321<. =IHGFEDCBAX$-RQPONMLK 
J%,&ZYXWVUTS/0 #0987654321<. =IHGFEDCBAX$—-RQPONMLKJ%, &ZYXW 
VUTS/0#0987654321<. =IHGFEDCBAX$-RQPONMLKJ% , &ZYXWVUTS/0#0 


987654321<.=IHGFEDCBAX$-RQPONMLKJ%, &ZYXWVUTS/ 23098765432 
1<.=ITHGFEDCBAX$-RQPONMLKJ% , &ZYXWVUTS/0#0987654321<.=IHGF 
EDCBAX$-RQPONMLKJ%, &ZYXWVUTS/9#098765432 
STD2 FCB LPI=6, 
LNCH=(€€4,1),010,2),016,3),022,494),(028,5),034,6),(040,7), 
(46,8),052,10),058,11),€64,12),066,9)), 
FORMEND=66 





The control statements are discussed below: 


e DFN specifies the channel and unit number of the default 
device type 3211 and FOLD=N specifies that lowercase letters 
are not to be printed as uppercase letters when the 
lowercase print train is not available. 


e UCS specifies the characters to be loaded into the UCS 
( buffer. 


@ FCB specifies the values to be loaded into the forms control 
buffer. LPI=6 indicates that six lines per inch are to be 
printed, and FORMEND=66 specifies 66 lines per page. 

ICAPRTBL EXAMPLE 2 
In this example, a 3211 UCS image (P11) and an IBM standard FCB 


image are loaded into the UCS and FCB buffers by specifying 
images via the UCS and FCB parameters of the DFN statement. 


JOB LOAD 3211 Pll IMAGE 


DFN UCS=P11,ADDR=004, FCB=STD 
END 





The DFN control statement is discussed below: 


e eens the DEVT parameter, the default device type is 


e The UCS parameter specifies the UCS image ID to be loaded 
into the UCS buffer from standard image tables provided by 
the utility. 


e The ADDR parameter specifies the channel and unit number of 
the 3211. 


e By omitting the FOLD parameter, the default FOLD value N is 
selected, specifying that lowercase letters are not to be 
printed as uppercase letters when the lowercase print train 
is not available. 
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e The FCB parameter specifies the standard FCB image id (STD) 
to be loaded into the FCB buffer from standard image tables 
provided by the utility. 





ICAPRTBL EXAMPLE 3 


In this example, a 3203-5 UCS image CAN by default) anda 
standard FCB image (STD2 by default) are loaded into the UCS and 
FCB buffers. | 


JOB 
DFN DEVT=3203-5,ADDR=002 
END 





The DFN statement is discussed below: 
® The DEVT parameter specifies the device type as 3203-5. 


e The ADDR parameter specifies the channel and unit number of 
the 3203-5. 


® By omitting the FOLD parameter, the default FOLD value N is 
selected, specifying that lowercase letters are not to be 
printed as uppercase letters when the lowercase print train 
is not available. 


° By omitting both a UCS statement and the UCS parameter, the 
default 3203-5 UCS image CAN) is loaded into the UCB buffer 
from standard image tables provided by the utility. 


° By omitting both an FCB statement and the FCB parameter, the | 
default FCB image (STD2) is loaded into the FCB buffer from ee 
standard image tables provided by the utility. 


ICAPRTBL EXAMPLE 4 


In this example, a 3203-5 UCS image CAN by default) anda 
provided FCB image are loaded, respectively, into the UCS and 
FCB buffers. 


3203-5 USER FCB 
FORMEND=88,LPI=8,LNCH=((4,1) 
(20,3),028,4),036,5),(044,6), 
(60,8),068,10),076,11),€84,1 
FOLD=Y, 

FCB=STD, 

ADDR=003, 

DEVT=3203-5 


(12,2), 
52,17), 
>, 088,9)) 


, 
C 
2 





The control statements are discussed below: 


e as JOB statement includes user comments on the action 
aken. 


e The FCB statement specifies the values to be loaded into the 
forms control buffer. FORMEND=88 and LPI=8 indicate that 
there will be 88 lines per page, 8 lines per inch. Note 
that the specification of the FCB parameter on the DFN 
statement is overridden by the FCB statement specification. 
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The DEVT parameter of the DFN statement specifies the device 
type as 3203-5. 


The ADDR parameter specifies the channel and unit number of 
the 3203-5. | 


The FOLD=Y parameter specifies that lowercase letters are to 
be printed as uppercase letters when the lowercase print 
train is not available. 


By omitting both a UCS statement and the UCS parameter of 


the DFN statement, the default 3203-5 UCS image (CAN) is 
loaded from standard image tables provided by the utility. 
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ITEBCOMPR: PROGRAM 





c~ 


ha 


ie” 


IEBCOMPR is a data set utility used to compare two sequential or 
two partitioned data sets at the logical record level to verify 
a backup copy. Fixed, variable, or undefined records from 
blocked or unblocked data sets or members can also be compared. 


Two sequential data sets are considered equal, that is, are 
considered to be identical, if 


e The data sets contain the same number of records, and 

e Corresponding records and keys are identical. 

Two partitioned data sets are considered equal if: 

° Corresponding members contain the same number of records. 


® Note lists are in the same position within corresponding 
members. 


e Corresponding records and Keys are identical. 
e Corresponding directory user data fields are equal. 


If all these conditions are not met for a specific type of data 


set, an unequal comparison results. If records are unequal, the 


record and block numbers, the names of the DD statements that 

define the data sets, and the unequal records are listed in a 

message data set. Ten successive unequal comparisons terminate 

the job step, unless a user routine is provided to handle error 
conditions. aN 
Partitioned data sets can be compared only if all the names in ey 
one or both of the directories have counterpart entries in the 

other directory. The comparison is made on members identified 

by these entries and corresponding user data. 


see 


Figure 12 shows the directories of two partitioned data sets. 
Directory 2 contains corresponding entries for all the names in 
Directory 1; therefore, the data sets can be compared. 


Di 
Directory 1 ECIOIY 2 


ABCDGL 


ABCDEFGH 
IJKL 





Figure 12. Partitioned Directories Whose Data Sets Can Be 
Compared Using IEBCOMPR 


Figure 13 on page 25 shows the directories of two partitioned 
data sets. Each directory contains a name that has no 
corresponding entry in the other directory; therefore, the data 
sets cannot be compared, and the job step is terminated. 





User exits are provided for optional user routines to process 
user labels, handle error conditions, and modify source records. 
See Appendix A, "Exit Routine Linkage" on page 422, for a 
discussion of the linkage conventions to be followed when user 
routines are used. 
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( ieee 
Moan, 


INPUT AND OUTPUT 


RETURN CODES 


CONTROL 


Directory 1 Directory 2 
ABCFHIJ ABFGHIJ 





Figure 13. Partitioned Directories Whose Data Sets Cannot Be 
Compared Using IJEBCOMPR 


IEBCOMPR uses the following input: 
e Two sequential or two partitioned data sets to be compared. 


e A control data set that contains utility control statements. 
This data set 1s required if the input data sets are 
partitioned or if user routines are used. 


IEBCOMPR produces as output a message data set that contains 
informational messages (for example, the contents of utility 
control statements), the results of comparisons, and error 
messages. 


IEBCOMPR returns a code in register 15 to indicate the results 
of program execution. The return codes and their meanings are 
listed in Figure 14. 


Codes Meaning 


00 (00 hex) Successful completion. 


08 (08) An unequal comparison. Processing continues. 

l2 (0C) An unrecoverable error exists. The job step is 
terminated. 

16 (10) A user routine passed a return code of 16 to 


IEBCOMPR. The job step is terminated. 
Figure 14. IEBCOMPR Return Codes 


IEBCOMPR is controlled by job control statements and utility 
control statements. The job control statements are required to 
execute or invoke IEBCOMPR and to define the data sets that are 
used and produced by IEBCOMPR. The utility control statements 
are used to indicate the input data set organization (that is, 
sequential or partitioned), to identify any user routines that 
may be provided, and to indicate whether user labels are to be 
treated as data. 
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JOB CONTROL STATEMENTS 


Figure 15 shows the job control statements for IEBCOMPR. 


One or both of the nea data sets can be Paseo from a 
preceding job step. 


Input data sets residing on different device types can be 


compared. 


Input data sets with a sequential organization 


written at different densities can also be compared. 


Statement 
JOB 
EXEC 


SYSPRINT DD 


SYSUT1 DD 


SYSUT2 DD 
SYSIN DD 


Figure 15. 


Use 
Initiates the job. 


Specifies the program name CPGM=IEBCOMPR) or, if 
the job control statements reside in a procedure 
library, the procedure name. 


Defines a sequential message data set, which can 
be written to a system output device, a tape 
volume, or a direct access volume. 


Defines an input data set to be compared. 
Defines an input data set to be compared. 


Defines the control data set or specifies DUMMY if 
the input data sets are sequential and no user 
routines are provided. The control data set 
normally resides in the input stream; however, it 
can be defined as a member within a library of 
partitioned members. 


Job Control Statements for IEBCOMPR 


The SYSPRINT DD statement must be present for each use of 


IEBCOMPR. 


The block size specified in the SYSPRINT DD statement 


must be a multiple of 121. 


The SYSIN DD statement is required. The block size specenaed in 
the SYSIN DD statement must be a multiple of 80. 


The logical record lengths of the input data sets must be 


identical; 


otherwise, unequal comparisons result. The block 


sizes of the input data sets can differ; however, block sizes 
must be multiples of the logical record length. 
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UTILITY CONTROL STATEMENTS 


COMPARE Statement 


EXITS Statement 


The utility control statements used to control IEBCOMPR are 
given in Figure 16. 


Statement Use 


COMPARE Indicates the organization of a data set. 
EXITS Identifies user exit routines to be used. 
LABELS Indicates whether user labels are to be treated as 


data by IEBCOMPR. 
Figure 16. JIEBCOMPR Utility Control Statements 


Continuation requirements for utility control statements are 
described in "Continuing Utility Control Statements" on page 5. 


The COMPARE statement is used to indicate the organization of 
data sets to be compared. 


The COMPARE statement, if included, must be the first utility 
control statement. COMPARE is required if the EXITS or LABELS 
ete is used or if the input data sets are partitioned data 
sets. 


The format of the COMPARE statement is: 


[label] COMPARE TYPORG={PS| PO} 


The EXITS statement is used to identify any user exit routines 
to be used. If a user exit routine is used, the EXITS statement 
1s required. If more than one valid EXITS statement is 
included, all but the last EXITS statement are ignored. For a 
discussion of the processing of user labels as data set 

epee aia see Appendix C, "Processing User Labels™ on 

page : 


The format of the EXITS statement is: 


CINHDR=routinenamel 
[, INTLR=routinenamel 


[,ERROR=routinename] 
[»PRECOMP=routinename]l 





IEBCOMPR Program 27 











LABELS Statement 


The LABELS statement specifies whether user labels are to be : 
treated as data by IEBCOMPR. For a discussion of this option, ‘ee F 
refer to Appendix C, "Processing User Labels™ on page 426 


The format of the LABELS statement is: 





Note: LABELS DATA=NO must be specified to make IBM standard/ 
user label (SUL) exits inactive when input/output data sets with 
nonstandard labels CNSL) are to be processed. 


If more than one valid LABELS statement is included, all but the 
last LABELS statement are ignored. 






Applicable 
Control 
Statements 


DATA LABELS 
























Description of Parameters 


DATA=LYES |NO|ALL J ONLY} 
specifies whether user labels are to be treated 
as data. The values that can be coded are: 


Parameters 









VES 
specifies that any user labels that are not 
rejected by a user's label processing routine 
are to be treated as data. Processing of labels 


as data stops in compliance with standard return 
codes. YES is the default. 









NO 
specifies that user labels are not to be treated 
as data. 






ALL 
specifies that all user labels are to be treated 
as data. A return code of 16 causes ITEBCOMPR to 
complete processing of the remainder of the 
group of user labels and to terminate the job 
step. 






ONLY 
specifies that only user header labels are to be 
treated as data. User header labels are 
processed as data regardless of any return code. 
The job terminates upon return from the OPEN 

routine. 






ERROR EXITS ERROR=routinename 
specifies the name of the routine that is to 
receive control after each unequal comparison 
for error handling. If this parameter is 
omitted and ten consecutive unequal comparisons 
occur while IEBCOMPR is comparing sequential 
data sets, processing is terminated; if the 
input data sets are partitioned, processing 
continues with the next member. 


INHDR=routinename 
specifies the name of the routine that processes 
user input header labels. 








INHDR EXITS 
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Applicable 
Control 
Parameters Statements Description of Parameters 
INTLR EXITS INTLR=routinename 
specifies the name of the routine that processes 
user input trailer labels. 


PRECOMP EXITS PRECOMP=routinename 
| specifies the name of the routine that processes 
logical records (physical blocks in the case of 
Variable spanned (VS) or variable blocked 
spanned (VBS) records longer than 32K bytes) 
from either or both of the input data sets 
before they are compared. 





TYPORG COMPARE TYPORG={PS|P0O} 

specifies the organization of the input 

sets. The values that can be coded are: 

PS 
specifies that the input data sets are 
sequential data sets. This is the default. 

| specifies that the input data sets 

partitioned data sets. 


ITEBCOMPR EXAMPLES 


The examples in Figure 17 illustrate some of the uses of 
IEBCOMPR. The numbers in the "Example™ column refer to examples 
that follow. 


Examples that use disk or tape in place of actual device numbers 
must be changed before use. See "DASD and Tape Device Support" 
on page 3 for valid device number notation. 


Data Set : 
Operation Organization Devices Comments Example 
COMPARE Sequential 9-track No user routines. Blocked l 
Tape input. 
COMPARE Sequential 7-track No user routines. Blocked 
Tape input. 


- 3 
COMPARE Sequential User routines. Blocked input. 3 
Different density tapes. 
= 
Lae 










COMPARE Sequential No user routines. Blocked 
input. 


COMPARE Partitioned No user routines. Blocked 
| input. 


Figure 17 CPart 1 of 2). IEBCOMPR Example Directory 
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Data Set | 
Operation Organization Devices Comments Example 





























eo 
COPY Sequential 9-track No user routines. Blocked 
Cusing Tape input. Two job steps; data 
IEBCOPY) sets are passed to second job 
and step. 
COMPARE | 
COPY Partitioned Disk User routine. Blocked input. 7 
Cusing Two job steps; data sets are 
eee passed to second job step. 
an 
COMPARE 
Figure 17 CPart 2 of 2). IEBCOMPR Example Directory 
IEBCOMPR EXAMPLE 1 
In this example, two sequential data sets that reside on 9-track 
tape volumes are to be compared. 
//TAPETAPE JOB... 
17 EXEC PGM=IEBCOMPR 
//SYSPRINT DD SYSOUT=A 
//SYSUTI DD UNIT=tape,LABEL=C€,NL), 
// DCB=CRECFM=FB, LRECL=80,BLKSIZE=2000), 
// DISP=COLD,KEEP), VOLUME=SER=001234 
S/SYSUT2 DD UNIT=tape,LABEL=(,NL),DISP=COLD, KEEP), ee ag 
17 DCB=CRECFM=FB,LRECL=80, BLKSIZE=10490), ‘ \ 
{7 VOLUME=SER=001235 ee 


4/SYSIN DD DUMMY 
SR 





Because no user routines are used and the input data sets have a 
sequential organization, utility control statements are not 
necessary. 


The job control statements are discussed below: 


e SYSUT1 DD defines an input data set, which resides on an 
unlabeled, 9-track tape volume. 


e SYSUT2 DD defines an input data set, which resides on an 
unlabeled, 9-track tape volume. 


e SYSIN DD defines a dummy data set. 
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IEBCOMPR EXAMPLE 2 


IEBCOMPR EXAMPLE 3 


In this example, 


two sequential data sets that reside on 7-track 


tape volumes are compared. 


//TAPETAPE JOB... 
7 EXEC PGM=IEBCOMPR 
“Z/SYSPRINT DD 
S/SYSUTI DD 
4/ 
17 
S/SYSUT2 DD 
Af 


f/ 
S/SYSIN DD 
COMPARE 
LABELS 
LABELS 


SYSOUT=A 
DSNAME=SET1,LABEL=(2,SUL),DISP=COLD,KEEP), 
VOL=SER=001234, DCB=(DEN=2,RECFM=FB,LRECL=80, 
BLKSIZE=2000, TRICH=C) , UNIT=3400 
DSNAME=SET2,LABEL=C€,SUL),DISP=COLD,KEEP), 
VOL=SER=001235, DCB=(DEN=2,RECFM=FB,LRECL=80, 
BLKSIZE=2000, TRTICH=C),UNIT=3400 

X 


TYPORG=PS 
DATA=ONLY 
DATA=ONLY 





The control statements are discussed below: 


SYSUT1 DD defines an input data set, 
7-~track tape volume. 


a labeled, 


SET1, which resides on 
The blocked data set was 


originally written at a density of 800 bits per inch CDEN=2) 
with the data converter on CTRTICH=C). 


SYSUT2 DD defines an input data set, 
first or only data set on a labeled, 


SET2, which is the 
7-track tape volume. 


The blocked data set was originally written at a density of 
800 bits per inch CDEN=2) with the data converter on 


CTRTCH=C). 


SYSIN DD defines the control data set, 
input stream. 


which follows in the 


COMPARE TYPORG=PS specifies that the input data sets are 
sequentially organized. 


LABELS DATA=OQNLY specifies that user header labels are to be 


treated as data and compared. 
are ignored. 


All other labels on the tape 


In this example, two sequential data sets written at different 
densities on different tape units are compared. 


oe JOB 





EXEC PGM=IEBCOMPR 


77 SYSPRINT DD 
S/SYSUT1 DD 


S/SYSUT2 DD 
17 


1/ 
S/SYSIN DD 
COMPARE 
EXITS 
LABELS 


SYSOUT=A 
DSNAME=SET1,LABEL=C€,SUL),DISP=COLD, KEEP), 
VOL=SER=001234, DCB=(DEN=1,RECFM=FB,LRECL=80, 
BLKSIZE=320, TRICH=C), UNI T=3400 
DSNAME=SET2,LABEL=(,5UL),DISP=COLD,KEEP), 
DCB=CRECFM=FB,LRECL=80, BLKSIZE=640), 
UNIT=tape, VOLUME=SER=091235 

x 


TYPORG=PS 
INHDR=HDRS, INTLR=TLRS 
DATA=NO 
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The control statements are discussed below: 


@ SYSUT1 DD defines an input data set, SET1, which is the 
first or only data set on a labeled, 7-track tape volume. 
The blocked data set was originally written at a density of 
556 bits per inch CDEN=2) with the data converter on 
CTRTCH=C). 


® SYSUT2 DD defines an input data set, SET2, which is the 
first or only blocked data set on a labeled tape volume. In 
this example, assume SYSUT2 is on a 9-track tape drive. 


° SYSIN DD defines the control data set, which follows in the 
input stream. 


e COMPARE TYPORG=PS specifies that the input data sets are 
sequentially organized. 


e EXITS identifies the names of routines to be used to process 
user input header labels and trailer labels. 


e LABELS DATA=NO specifies that the user input header and 
trailer labels for each data set are not to be compared. 


TEBCOMPR EXAMPLE 4 


In this example, two sequential data sets (card input and tape 
input) are compared. 


//CARDTAPE JOB... 

// EXEC PGM=IEBCOMPR 

//SYSPRINT DD SYSOUT=A 

S/SYSIN DD DUMMY 

S/SYSUT2 DD UNIT=tape, VOLUME=SER=001234,LABEL=(€,NL), 

// DCB=C(CRECFM=FB,LRECL=80,BLKSIZE=2000), 
DISP=COLD, KEEP) 


Lo 
//SYSUTI1 DD DATA 
(input card data set) 


7% 





The control statements are discussed below: 

e SYSIN DD defines a dummy control data set. Because no user 
routines are provided and the input data sets are 
sequential, utility control statements are not necessary. 


e SYSUT2 DD defines an input data set, which resides on an 
unlabeled, 9-track tape volume. 


e SYSUT1 DD defines an input data set Ccard input). 
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IEBCOMPR EXAMPLE 5 


IEBCOMPR EXAMPLE 6 


In this example, 


//DISKDISK JOB... 

EXEC PGM=IEBCOMPR 

SYSOUT=A 
DSNAME=PDSSET1,UNIT=disk, DISP=SHR, 
DCB=CRECFM=FB,LRECL=80, BLKSIZE=2000), 
VOLUME=SER=111112 


// 

“7 SYSPRINT 
//SYSUTI1 
// 


Sf 
AASYSUT2 


S/ASYSIN 
C 


7X 


DD 
DD 


DD 


DD 


OMPARE 


two partitioned data sets are compared. 


DSNAME=PDSSET2,UNIT=disk, DISP=SHR, 
DCB=CRECFM=FB,LRECL=80, BLKSIZE=2000), 
VOLUME=SER=111113 


* 
TYPORG=PO0 





The control statements are discussed below: 


e SYSUT1 DD defines an input partitioned data set, PDSSETI1. 
The blocked data set resides ona disk volume. 


e SYSUT2 DD defines an input partitioned data set, PDSSET2. 
The blocked data set resides ona disk volume. 


e SYSIN DD defines the control data set, which follows in the 


input stream. 


@ COMPARE TYPORG=P0 indicates that the input data sets are 


partitioned. 


In this example, 


two job steps. 


//TAPETAPE JOB 


//STEPA 
4/SYSPRINT 
A/SYSUTI 


Sf 
S/SYSUT2 
// 

// 

// 
S/SYSIN 
/%* 
//STEPB 
A/SYSPRINT 
//SYSUT1 
A/SYSUT2 
//SYSIN 
/*% 


a sequential data set 1S copied and compared in 


EXEC PGM=IEBCOPY 


DD 
DD 


DD 
EXEC PGM=IEBCOMPR 


DD 
DD 
DD 
DD 


SYSOUT=A 

DSN=COPYSET1,UNIT=tape, 
DISP=COLD,PASS), 
DCB=CRECFM=FB,LRECL=80, BLKSIZE=6490), 
LABEL=C€,SL), 

VOLUME=SER=001234 

DSNAME=COPYSET2, DISP=€,PASS),LABEL=C€,SL), 
DCB=CRECFM=FB,LRECL=80, BLKSIZE=640), 
UNIT=tape, 

VOLUME=SER=001235 

DUMMY 


SYSOUT=A 
DSNAME=*.STEPA.SYSUT1,DISP=COLD, KEEP) 
DSNAME=%.STEPA.SYSUT2, DISP=C(OLD, KEEP) 
DUMMY 
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The first job step copies the data set and passes the epectnal 
and copied data sets to the second job step. The second job 
step compares the two data sets. ek po | 


ae control statements for the IEBCOMPR job step are discussed 
elow: 


@ SYSUT1 DD defines an input data set passed from the 
preceding job step (COPYSET1). The data set resides ona 
labeled, 9-track tape volume. | 


e SYSUT2 DD defines an input data set passed from the 
preceding job step (CCOPYSET2). The data set, which was 
created in the preceding job step, resides on a labeled, 
9-track tape volume. 


e SYSIN DD defines a dummy control data set. Because the 
input is sequential and no user exits are provided, no 
utility control statements are required. 


IEBCOMPR EXAMPLE 7 


In this example, a partitioned data set is copied and compared 
in two job steps. 


The example follows: 


//DISKDISK JOB 

//7STEPA EXEC PGM=IEBCOPY | 7 
//SYSPRINT DD SYSOUT=A : 

//SYSUT1 DD DSNAME=OLDSET,UNIT=disk, DISP=SHR, 

// VOLUME=SER=111112, 

// DCB=CRECFM=FB,LRECL=80, BLKSIZE=640) | 
S/7SVYSUT2 DD DSNAME=NEWMEMS, UNIT=disk, DISP=(,PASS), ; 
// ~ VOLUME=SER=111113,SPACE=C(TRK,(5,5,5)), ‘e 
// 7 DCB=CRECFM=FB,LRECL=80, BLKSIZE=640) 
47 SYSUT3 DD UNIT=SYSDA,SPACE=CTRK, C1) ) 

S/SYSUT4 DD UNIT=SYSDA,SPACE=CTRK, €1)) 

S/SYSIN DD xX~ 


COPY OUTDD=SYSUT2, INDD=SYSUT1 
SELECT MEMBER=CA, B, D,E,F) 


7% 
//STEPB EXEC PGM=IEBCOMPR 
//7SYSPRINT DD SYSOUT=A 
S/SYSUT1 DD DSNAME=OLDSET,DISP=COLD, KEEP) 
S/7SYSUT2 DD DSNAME=NEWMEMS,, DISP=COLD, KEEP) 
“7 SYSIN DD xX 
COMPARE TYPORG=P0 
EXITS ERROR=SEEERROR 
i 





The first job step copies the data set and passes the original 
and copied data sets to the second job step. The second job 
step compares the two data sets. 


The control statements for the IEBCOMPR job step are discussed 
elow: 


e SYSUT1] DD defines a blocked input data set COLDSET) that is 
passed from the preceding job step. The data set resides on 
a disk volume. | 


® SYSUT2 DD defines a blocked input data set (NEWMEMS) that is 
passed from the preceding job step. The data set resides on 
a disk volume. 
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e SYSUT3 and SYSUTG define temporary system data sets to be 
Ten abe work files during IEBCOPY. These are not passed to 


e SYSIN DD defines the control data set, which follows in the 
input stream. 


® COMPARE TYPORG=P0O specifies partitioned organization. 


° EXITS specifies that a user error routine, SEEERROR, is to 
be used. 


Because the input data set names are not identical, the data 
sets can be retrieved by their data set names. 
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IEBCOPY is a data set utility used to copy one or more 
partitioned data sets or to merge partitioned data sets. A 
partitioned data set that 1s copied to a sequential data set is 
said to be unloaded. The sequential data set created by an 
unload operation can be copied to any direct access storage 
device. When one or more data sets created by an unload 
operation are used to re-create a partitioned data set, this is 
called a load operation. Specific members of a partitioned or 
unloaded data set can be selected for, or excluded from, a copy, 
unload, or load process. 


IEBCOPY can be used to: 
8 Create a backup copy of a partitioned data set. 
e Copy one or more data sets per copy operation. 


° Copy one partitioned data set to a sequential data set 
Cunload). 


® Copy one or more data sets created by an unload operation to 
any direct access device (Cload). 


e Select members from a data set to be copied, unloaded, or 
loaded. 

@ Replace identically named members on data sets Cexcept when 
unloading). 


e Replace selected data set members. 


@ Rename selected members. ; ; 

e Exclude members from a data set to be copied, unloaded, or 
loaded. 

e Compress partitioned data sets in place Cexcept when the 
data set 1s an unloaded data set). | 

e Merge data sets Cexcept when unloading). 

$ Re-create a data set that has exhausted its primary, 
secondary, or directory space allocation. 

e Alter load modules in place. 

e Copy and reblock load modules. 

In addition, IEBCOPY automatically lists the number of unused 

directory blocks and the number of unused tracks available for 

member records in the output partitioned data set. If LIST=NO 

1s coded (see "COPY Statement" on page 49), the names of copied, 

unloaded, or loaded members listed by the input data set are 

suppressed. 

Note: If the partitioned data set that is to be compressed is a 

null data set or if the data set has already been compressed, 

ITEBCOPY will not produce a listing. 
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CREATING A BACKUP COPY 


data set by copying Cunloading) it to a sequential data set. A 
partitioned data set can be totally or partially unloaded to any 
tape volume or direct access device supported by BSAM. A data 
set 1s unloaded when physical sequential organization space 
allocation is specified for the output data set ona direct 
access device or when the output data set is a tape volume. To 
unload more than one partitioned data set to the same volume in 
one execution of ITEBCOPY, multiple copy operations must be used 
one multiple sequential data sets must be allocated on the same 
volume. 


é IEBCOPY can be used to create a backup copy of a partitioned 


A data set with a physical sequential organization resulting 
from an unload operation can, in turn, be copied. No output 
tape file will be created if the input is a null file. 


COPYING DATA SETS 


IEBCOPY can be used to copy a partitioned data set, totally or 
in part, from one direct access volume to another. In addition, 
a data set can be copied to its own volume, provided its data 
set name is changed. If the data set name is not changed, the 
data set 1S compressed in place. 


Note that copied members are not reordered; members are copied 
in the order in which they exist on the original data set. If 
the members are to be reordered, ITEHMOVE can be used for the 
copy operation (see "IJEHMOVE Program™ on page 340). 


COPYING OR LOADING UNLOADED DATA SETS 


2 Data sets can be copied or loaded, totally or in part, from one 
* or more direct access volumes or tape volumes to a single direct 
| access volume. To copy or load more than one input partitioned 
data set, specify more than one input data set with the COPY 
statement. The input data sets are copied or loaded in the 
order in which they are specified. 


SELECTING MEMBERS TO BE COPIED, UNLOADED, OR LOADED 


Members can be selected from one or more input data sets. 
Selected members can be copied, unloaded, or loaded from the 
input data sets specified on the INDD statement preceding a 
SELECT statement. 


Selected members are eeeeened for in a low-to-high Ca-to-z) 
collating sequence, regardless of the order in which they are 
specified; however, they are copied in the same physical 
sequence in which they appear on the input partitioned data set. 


After a member of a data set has been found, no search 18S made 
for it on any subsequent input data set. Similarly, when all 
the selected members are found, the copy or load step is 
terminated even though all of the input data sets may not have 
been searched. For example, if members A and B are specified 
and A is found on the first of three input data sets, it 1s not 
searched for again; if B is found on the second input data set, 
the copy or load operation is successfully terminated after the 
second input data set has been processed, although both A and B 
may also exist on the third input data set. 


However, if the first member name is not found on the first 
input data set, the search for that member stops and the first 
data set is searched for the second member. This process 
continues until the first input data set has been searched for 
all specified members. All the members that were found on the 
input data set are then processed for copying, unloading, or 
loading to the output data set. This process is repeated for 
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the second input data set Cexcept that the members that were 

found on the first input data set are not searched for again). 

fo 
Note: Only one data set can be processed if an unload operation |: J 
is to be performed. Multiple unload operations are allowed for “ -’ 
each job step; multiple INDD statements are not allowed for each 
unload operation. 


Copying Members That Have Alias Names 
When copying members that have alias names, note the following: 


e When the main member and its alias names are copied, they 
exist on the output partitioned data set in the same 
relationship they had on the input partitioned data set. 


e When members with alias names are copied using the SELECT or 
EXCLUDE member option, those alias names that are to be 
selected or excluded must be explicitly named. 


The rules for replacing or renaming members apply to both 
aliases and members; no distinction 1S made between them. 
However, the replace (R) option Con the SELECT statement) does 
not apply to an unload operation. 


REPLACING IDENTICALLY NAMED MEMBERS 


In many copy and load operations, the output partitioned data 
set may contain members that have names identical to the names 
of the input partitioned data set members to be copied or 
loaded. When this occurs, you may specify that the identically 
named members are to be copied from the input partitioned data 
set to replace existing members. 


The replace option allows an input member to override an —N 
existing member on the output partitioned data set with the same. 
name. The pointer in the output partitioned data set directory ~~” 
is changed to point to the copied or loaded member. 


If the replace option is not specified, input members are not 
copied when they have the same name as a member on the output 
partitioned data set. 


The replace option can be specified on the data set or member 
level. This level is specified ona utility control statement. 


When replace (R) is specified on the data set level with a COPY 
or INDD statement, the input data is processed as follows: 


® In a full copy or load process, all members on an input 
partitioned data set are copied to an output partitioned 
data set; members whose names already exist on the output 
partitioned data set are replaced by the members copied or 
loaded from the input partitioned data set. 


e In a selective copy or load process, all selected input 
members will be copied to the output data set, replacing any 
identically named output data set members. 


e In an exclusive copy process, all nonexcluded members on 
input partitioned data sets are copied or loaded to an 
output partitioned data set, replacing those duplicate named 
members on the output partitioned data set. 


When replace 1s specified on the member level (specified as R on 
a SELECT statement), only selected members for which replace is 
specified are copied or loaded, and identically named members on 
the output partitioned data set are replaced 


There are differences between full, selective, and exclusive bs 
copy or load processing. These differences should be remembered 
when specifying the replace option and all the output data sets 
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contain member names common to some or all the input partitioned 
data sets being copied or loaded. These differences are: 


e When a full copy or load is performed, the output 
partitioned data set contains the replacing members that 
were on the last input partitioned data set copied. 


e When a selective copy or load is performed, the output 
partitioned data set contains the selected replacing members 
that were found on the earliest input partitioned data set 


searched. After a selected member is found, it is not 
searched for again; therefore, after it is found, a selected 
member 18S copied or loaded. If the same member exists on 


another input partitioned data set, it is not searched for, 
and hence, not copied or loaded 


e When an exclusive copy or load is performed, the output 
partitioned data set contains all members, except those 
specified for exclusion, that were on the last input 
partitioned data set copied or loaded 


REPLACING SELECTED MEMBERS 


When members are being selected for copying or loading, you may 
specify the replace (R) option on either the data set or the 
member level. 


If the replace option is specified on the data set level, all 
selected members found on the designated input data sets replace 
identically named members on the output partitioned data set. 
This 1s limited by the fact that after a selected member is 
found it is not searched for again. 


If the replace option is specified on the member level, the 
specified members on the input data set replace identically 
named members on the output partitioned data set. After a 
member is found, it is not searched for again. (See "Replacing 
Identically Named Members" on page 38.) 


RENAMING SELECTED MEMBERS 


Selected members on input data sets can be copied and renamed on 
the output data set; the input and output data sets must not be 
the same. However, in the case of a copy or load operation, if 
the new name is identical to a member name on the output data 
set, the input member is not copied or loaded unless the replace 
option 1s also specified. See "SELECT Statement™ on page 53 for 
information on renaming selected members. 


Renaming is not physically done to the input data set directory 
entry. The output data set directory, however, will contain the 
new name. 


EXCLUDING MEMBERS FROM A COPY OPERATION 


Members from one or more input data sets can be excluded from a 
copy, unload, or load operation. The excluded member 15s 
searched for on every input data set in the copy, unload, or 
load operation and is always omitted. Members are excluded from 
the input data sets named on an INDD statement that precedes the 
EXCLUDE statement. (See "COPY Statement™ on page 49 and 
MEXCLUDE Statement" on page 54.) 


The replace option can be specified on the data set level in an 
exclusive copy or load, in which case, nonexcluded members on 
the input data set replace identically named members on the 
output data set. See "Replacing Identically Named Members™ on 
page 38 for more information on the replace option. 
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COMNPRESSING A DATA SET 


A compressed data set is one that does not contain embedded, oo. 
unused space. After copying or loading one or more input 
partitioned data sets to a new output partitioned data set (by ed 


means of a selective, exclusive, or full copy or load that does 
not involve replacing members), the output partitioned data set 
contains no embedded, unused space. 


To make unused space available, either the entire data set must 
be scratched or it must be compressed in place. A compressed 
version can be created by specifying the same data set for both 
the input and output parameters ina full copy step. A backup 
copy of the partitioned data set to be compressed in place 
should be Kept until successful completion of an in-place 
eee. 1S indicated (by an end-of-job message and a return 
code of 00) 


An in-place compression does not release extents assigned to the 
data set. Inclusion, exclusion, or renaming of selected members 
cannot be done during the compression of a partitioned data set. 


When the same ddname is specified for the INDD and QUTDD | 
keywords (see "COPY Statement™ on page 49) and the DD statement 
specifies a block size different from the block size specified 
in the DSCB, the DSCB block size is overridden; however, no 
physical reblocking or deblocking is performed by IEBCOPY. For 
information on reblocking load modules, see "Copying and 
Reblocking Load Modules™ on page 41. 


MERGING DATA SETS 


A merged data set 18 one to which an additional member i858 copied 
or loaded. It is created by copying or loading the additional 
members to an existing output partitioned data set; the merge 
operation (the ordering of the output partitioned data set's 
directory) is automatically performed by IEBCOPY. 


If there is a question about whether or not enough directory 
blocks are allocated to the output partitioned data set to which 
an input data set is being merged, the output partitioned data 
set should be re-created with additional directory space prior 
to the merge operation. 


RE-CREATING A DATA SET 


A data set can be re-created by copying or loading it and 
allocating a larger amount of space than was allocated for the 
original data set. This application of IEBCOPY is especially 
useful if insufficient directory space was allocated to a data 
set. Space cannot be allocated in this manner for an existing 
partitioned data set into which members are being merged. 


ALTERING LOAD MODULES IN PLACE 


IEBCOPY can be used to alter load modules in place. 
Alter-in-place reads modules written by earlier runs of the 
linkage editor and inserts new relocation dictionary C(CRLD) and 
segment text block counts. For modules created by a program 
other than the linkage editor or copied by a program other than 
IEBCOPY, alter-in-place can replace erroneous RLD or segment 
text block counts by correcting PDS directory entries, control 
records, and the note list. For more information, see 
"Inserting RLD Counts™ on page 42. 


Only members of a partitioned data set may be altered. 


For the procedure used to invoke the alter-in-place function, a 
see "ALTERMOD Statement™ on page 51. i 
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COPYING AND REBLOCKING LOAD MODULES 


IEBCOPY can be used to copy and reblock load modules ina data 
set library. Copy/reblock copies a sequential Cunloaded) data 
set or selected members from a partitioned data set onto a new 
or existing output partitioned data set. The text records, RLD, 
and control records Cand the note list, for overlay load 
modules) are rebuilt; all other records are copied unchanged. 
For a description of how the RLD count is inserted, see 
"Inserting RLD Counts™ on page 42. 


The reblock function allows you to specify: 


e A maximum block size for compatibility with other systems or 
programs 


e A minimum block size to specify the smallest block that 
should be written on the end of a track 


The load modules will be blocked so that they can be link-edited 
again and/or loaded by the loader. 


Load libraries may be copied to devices with a larger or smaller 
block size than the input block size. 


ITEBCOPY will determine the amount of space remaining ona track 
before assigning a new block size. If this amount is smaller 
than the output block size, ITEBCOPY will attempt to determine 
whether a smaller block can be written to use the remaining 
space on the track. 


The maximum block size produced by the COPYMOD function is 32760 
bytes. 


For the procedure used to copy and reblock load modules, see 
WCOPYMOD Statement™ on page 52. 


LOAD MODULE REQUIREMENTS 


IEBCOPY requires that the members of the input data set that are 
to be altered or copied/reblocked must qualify as load modules; 
that is, they must possess characteristics such that they can be 
loaded by the system's program fetch routine or link-edited 
again by the linkage editor. Members that are not recognized as 
load modules will be unaffected by the alter-in-place or 
copy/reblock operation. 


Load modules in scatter-load format and modules that were 
link-~edited with the noneditable (NE) attribute cannot be 
reblocked or altered in place. For more information on module 


format and attributes, see Linkage Editor and loader User's 
Guide. 


Load modules in page-aligned format are altered Cif ALTERMOD is 
specified) and copied and altered Cif COPYMOD is specified), but 
are not reblocked. 


The PDS directory entry for a load module must meet the 
following requirements: 


1. The entry must be at least 34 bytes long (standard length 
for entries is only 12 bytes). 


2. Bytes 26 and 27 must contain the length of the first text 
record, and this length must be equal to the length 
specified by the first control record. 


Any record in a load module that precedes the first control 
record must be one of the following: 


e A symbol record (SYM) 


e A composite external symbol dictionary record CCESD) 
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e An external symbol dictionary record CESD) 


e A scatter/translation record (STT) a 


e A CSECT identification record CIDR) ed 


RLD and control records must be: 

e An RLD record: 70000 xxl0'B in byte l, 

@ A control record: "9000 xx01l'B in byte l, 

e An RLD and control record: *0000 xxl1l'B in byte 1, or 

@ The length specified by the value in bytes 5 and 6 plus the 
value in bytes 7 and 8 plus 16. Control records must 
contain the length of the following text record in bytes 15 
and 16. 


The sequence of records following a control or RLD/control 
record must be: 


e Text, End-of-Module/End-of-Segment, 


@ Text, RLD, End-of-Module/End-of-Segment, 


e Text, RLD/control, 
e Text, RLD, CRLD, . . .), End-of-Module/End-of-Segment, or 
@ Text, RLD, CRLD, . . .3, RLD/control. 


For modules link-~edited in overlay format, a note list record 
follows the last text or RLD record of the load module. 


Each block of text in a load module is preceded by a control Se 
record and may be followed by one or more RLD and/or control 
records. These records are variable length, with a maximum of 

256 bytes. They may contain only RLD data or only control data 

or both RLD and control data. 


The term "number" or "count" of RLD records is used to mean the 
a eda of these records that follow a block of text in a module 
ibrary. 


The system's program fetch routine executes fewer channel 
programs if the number of these records following a block of 
text is Known. During an ALTERMOD or COPYMOD operation, the 
number of RLD records following each block of text is inserted 
into the control record that immediately precedes that block of 
text. In addition, the number of RLD records that follow the 
first block of text for a load module is inserted into the PDS 
directory entry for that module. 


The linkage editor also inserts RLD counts in the control 
records and in the PDS directory entries. 


OVERLAY LOAD MODULES 


A load module in overlay format contains a note list record that 
is used to locate the overlay segments within the module. The 
system's program fetch routine may load these segments faster if 
the number of text blocks contained in each segment is known. 
This number, Known as the segment text block count, is kept in 
the N byte of the note list TTRN Sn Ait or more information 


on note lists, see Catalog Administration Guide. 


Some older versions of the linkage editor did not insert the 
segment text block counts in the overlay note list. The 
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INPUT AND OUTPUT 


RETURN CODES 


ALTERMOD and COPYMOD functions may be used to insert these 
counts in overlay modules. 


During an ALTERMOD operation on an overlay load module, the RLD 
and segment text block counts are updated, if necessary. During 
a COPYMOD operation, overlay load modules are reblocked, the RLD 
counts are inserted, and the note list is rebuilt with segment 
text block counts. 


The linkage editor may also be used to insert RLD and segment 
text block counts in overlay load modules. 


ITEBCOPY uses the following input: 


° An input data set that contains the members to be copied, 
loaded, merged, altered, reblocked, or unloaded to a 
sequential data set 


e A control data set that contains utility control statements. 
The control data set is required for a copy, unload, load, 
or merge operation 


IEBCOPY does not support VIO (virtual I/0) data sets. 
IEBCOPY produces the following output: 


e An output data set, which contains the copied, merged, 
altered, reblocked, unloaded, or loaded data. The output 
data set is either a new data set (from a copy, reblock, 
load, or unload) or an old data set (from a merge, 
compress-in-place, copy, alter, or load). 


@ A message data set, which contains informational messages 
(for example, the names of copied, unloaded, or loaded 
members) and error messages, if applicable. 


e Spill data sets, which are temporary data sets used to 
provide space when not enough virtual storage 1s available 
for the input and/or output partitioned data set 
directories. These data sets are opened only when needed. 


IEBCOPY returns a code in register 15 to indicate the results of 
program execution. The return codes and their meanings are 
listed in Figure 18. 


Codes Meaning 


00 (00 hex) Successful completion. 


04 (04) A condition exists from which recovery may be 
possible. 

08 (08) An unrecoverable error exists. The job step is’ 
terminated. 


Figure 18. IEBCOPY Return Codes 
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CONTROL 


IEBCOPY is controlled by job control statements and utility 
control statements. 


JOB CONTROL STATEMENTS 


Figure 19 on page 45 shows the job control statements for 
ITEBCOPY. 


PARM Information on the EXEC Statement 


The EXEC statement for IEBCOPY can contain PARM information that 
1s used to define the number of bytes used as a buffer. The 
PARM parameter can be coded: 


PARM='SIZE=nnnnnnnnlKI! 


The nnnnnnnn can be replaced by 1 to 8 decimal digits. The K 
causes the nnnnnnnn to be multiplied by 1024 bytes. 


If PARM is not specified, or a value below the minimum buffer 
Size 1s specified, IEBCOPY defaults to the minimum. Minimum 
buffer size is twice the maximum of the input or output block 
size or four times the input or output track capacity, whichever 
is larger. 


The maximum buffer size that can be specified is equal to the 
size of the storage remaining in the storage area gotten when 
TEBCOPY issues a conditional one-megabyte storage request 
(GETMAIN) for work areas and buffers. If the value specified in 
PARM exceeds this maximum, IEBCOPY defaults to the maximum. 


A request for too much buffer storage may result in increased 
system paging because of a lack of available system page frames. 
This will degrade overall system performance. 


SYSPRINT DD Statement 


The SYSPRINT DD statement is required and must define a data set 
with fixed blocked or fixed records. The block size for the | 
SYSPRINT data set must be a multiple of 121. Any blocking 
factor may be specified, with a maximum allowable block size of 
32760 bytes. 
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( : Statement Use 


JOB Initiates the job. 

EXEC Specifies the program name CPGM=IEBCOPY) or, if the 
job control statements reside in the procedure 
library, the procedure name. This statement can 


include optional PARM information to define the 
size of the buffer to be used; see "PARM 
Information on the EXEC Statement.”™ 





SYSPRINT DD Defines the sequential message data set used for 
listing statements and messages. This data set can 
be written to a system output device, a tape 
volume, or a direct access volume. 


anynamel DD Defines an input partitioned data set. These DD 
statements can describe partitioned data sets on 
direct access devices or sequential data sets, 
created as a result of unload operations, on tape 
or direct access devices. The data set can be 
defined by a data set name, as a cataloged data 
set, or as a data set passed from a previous job 
step. 


anyname2 DD Defines an output partitioned data set. These DD 
statements can describe partitioned data sets on 
direct access devices or sequential data sets, 
created as a result of unload operations, on tape 
or direct access devices. 


SYSUT3 DD Defines a spill data set ona direct access device. 
SYSUT3 is used when there 1S no space in virtual 
Hie storage for some or all of the current input 
( partitioned data set's directory entries. SYSUT3 
may also be used when not enough space is available 
in virtual storage for retaining information during 
table sorting. 


SYSUT4 DD Defines a spill data set ona direct access device. 
SYSUT4 is used when there iS no space in virtual 
storage for the current output partitioned data 
set's merged directory and the output partitioned 
data set 1s not new. 


SYSIN DD Defines the control data set. The control data set 
normally resides in the input stream; however, it 
can reside ona system input device, a tape volume, 
or a direct access volume. 


Figure 19. Job Control Statements for IEBCOPY 


anynamel and anyname2 DD Statements 


DD statements are required for input and output data sets. 

There must be ‘one DD statement for each unique data set used for 
input and one DD statement for each unique data set used for 
output in the job step. For an unload operation, only one input 
data set may be specified for each output data set. 


Data sets used as input data sets 1n one copy operation can be 
used as output data sets in another copy operation, and vice 
versa. 


Input data sets cannot be concatenated. The maximum block size 
for input data sets to be unloaded is 32760. 
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The SYSIN DD statement is required and must define a data set 


IEBCOPY UNLOADED DATA SET BLOCK SIZE 


with fixed block or fixed records. The block size for the SYSIN a 
data set must be a multiple of 80. Any blocking factor may be 
specified, with a maximum allowable block size of 32760 bytes. 
The block size for unloaded data sets is determined by the 
following steps: 
1. The minimum block size for the unloaded data set is 
calculated as being equal to the larger of: 
® 284 bytes, or 
° 20 bytes + the block size and Key length of the input 
data set. 
2. If a user-supplied block size was specified, and it is 
larger than 284 bytes, it will be passed to step 3. 
Otherwise, the minimum size is passed. 
A PDS that has been unloaded with a user-supplied block size 
can be loaded back with only the COPY function. 
3. The block size value passed from step 2 is then compared 
with the largest block size acceptable to the output device. 
If the output device capacity is smaller than the block size 
passed in step 2, the unloaded data set block size is set to 
the maximum allowed for the output device. 
G. The logical record length CLRECL) is then set to the minimum 
block size calculated in step 1 minus 4 bytes. Ie Ke 
5. The block size is stored in the first control record “te J 


CCOPYR1) and used at load time. Block size of the unloaded 
data set must not be changed before the data set is loaded. 
Be sure to specify the desired block size at unload time if 
it is other than that taken by default as indicated above. 


For unload and load operations, requests are handled in the same 
way as for a copy operation. 


Fixed or variable records can be reblocked. Reblocking or 
deblocking is done if the block size of the input partitioned 
data set is not equal to the block size of the output 
partitioned data set. 


An unloaded partitioned data set will have a variable spanned 
record format. When an unloaded data set 1s subsequently 
loaded, the output data set will have the same characteristics 
a had before the unload operation, unless specified differently 
y you. 


Figure 20 on page 47 shows how input record formats can be 
changed. In addition, any record format can be changed to the 
undefined format Cin terms of its description in the DSCB). 
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Space Allocation 


Input Output 


Fixed Fixed-Blocked 
Fixed-Blocked Fixed 
Variable Variable-Blocked 


Variable-Blocked Variable 
Figure 20. Changing Input Record Format Using IJEBCOPY 


System data sets should not be compressed in place unless the 
subject partitioned data set is made nonsharable. The libraries 
in which IEBCOPY resides (CSYS1L.LINKLIB and SYS1.SVCLIB) must not 
NN ee by IEBCOPY unless IEBCOPY is first transferred to 
a JOBLIB. 


Sometimes it is necessary to allocate space on spill data sets 
CSYSUT3 and SYSUT4). The space to be allocated for SYSUTS3 
depends on the number of members to be copied or loaded. The 
space to be allocated for SYSUT4 depends on the number of 
directory blocks to be written to the output data set. 


To conserve space on the direct access volume, an initial 
quantity and a secondary quantity for space allocation may be 
used, as shown in the following SPACE parameter: 


SPACE=(€c, (x,y) ) 


The c value should be a block length of 80 for SYSUT3 and of 256 
for SYSUT¢. The x value is the number of blocks in the primary 
allocation, and the y value is the number of blocks in the 
secondary allocation. 


For SYSUT3, x + 15y must be equal to or greater than the number 
of members in the largest input partitioned data set in the copy 
operation, multiplied by 1.05. 


For SYSUT4, x + 1l5y must be equal to or greater than the number 
of blocks allocated to the largest output partitioned data set 
directory in the IEBCOPY job step. 


For example, if there are 700 members on the largest input 
ae ere data set, space could be allocated for SYSUT3 as 
follows: 


oPACE=(€80, (€60,45)) 


However, the total amount of space required for SYSUT3 in the 
worst case 1s used only if needed. If space is allocated in 
this manner for SYSUT4, you must specify in the SYSUT4 DD 
statement: 


DCB=CKEYLEN=8) 


IEBCOPY ignores all other DCB information specified for SYSUT3 
and/or SYSUTG. Multivolume SYSUT3 and SYSUT4 data sets are not 
supported. 


The temporary spill data sets may or may not be opened, 
depending on the amount of virtual storage available; therefore, 
the ae eh and SYSUT4 DD statements should always appear in the 
job stream. 
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Refer to Data Administration Guide for more information on 
estimating data set space allocations. —_ 


Restrictions 


e IEBCOPY must run from an authorized library because of 
special storage key requirements for IEBCOPY I/0 appendages. 


e Variable block spanned format data sets are not supported. 


@ VIO is not supported by IEBCOPY for SYSUTS4, nor for 
partitioned input or output data sets. 


e When merging into or compressing system libraries, do not 
specify DISP=SHR. The results of a merge into or compress 
of the current SYSI.LINKLIB or SYSI1.SVCLIB would be 
unpredictable. 


e Load modules having the downward compatible (DC) linkage 
editor attribute will be reblocked to a maximum block size 
of 1024 C1K) when encountered during COPYMOD processing, 
regardless of the number specified on the MINBLK and MAXBLK 
parameters. 


e IEBCOPY does its own buffering; therefore, coding the BUFNO 
parameter in the DCB will cause a JCL error. 


@ Reblocking or deblocking using the COPY statement cannot be 
done if either the input or the output data set has 
undefined format records, keyed records, track overflow 
records, note lists, or user TTRNs, or if compress-in-place 
1s specified. Load modules, with undefined record formats, 
may be reblocked using the COPYMOD statement. 


The compress-in-place function cannot be performed for the ge 
following: | é 
@ Unloaded data sets 
$ Data sets with track overflow records 
e Data sets with keyed records 
e Data sets for which reblocking is specified in the DCB 
parameter 
e Unmovable data sets 


Note: If IEBCOPY creates a copied library Cpartitioned data 
set) whose block size is smaller than the logical record length 
of the original library, a return code of 4 is issued, with 
message I[EBI175I. If IEBCOPY is used later to compress-~in-place 
the output library, the operation will fail and this library 
will be unusable. 


UTILITY CONTROL STATEMENTS 


IEBCOPY is controlled by the utility control statements in 
Figure 21 on page 49 
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COPY Statement 


Statement Use 

COPY Indicates the beginning of a COPY operation. 

ALTERMOD Indicates the beginning of an ALTERMOD operation. 

COPYNOD Indicates the beginning of a COPYMOD operation. 

SELECT Specifies which members in the input data set are 
to be copied. 

EXCLUDE Specifies members in the input data set to be 
excluded from the copy step. 

Figure 21. IEBCOPY Utility Control Statements 


In addition, when INDD, a COPY statement parameter, appears on a 
card other than the COPY statement, it is referred to as an INDD 
sete nes it can function as a control statement in this 
context. 


Continuation requirements for utility control statements are 
described in "Continuing Utility Control Statements" on page 5. 


The COPY statement is required to initiate one or more IEBCOPY 
copy, unload, or load operations. Any number of operations can 
follow a single COPY statement; any number of COPY statements 
can appear within a single job step. 


IEBCOPY uses a copy operation/copy step concept.! A copy 
operation starts with a COPY, COPYMOD, or ALTERMOD statement, 
and continues until another COPY, COPYMOD, or ALTERMOD statement 
is found, or the end of the control data set is found. Within 
each copy operation, one or more copy steps are present. Any 
INDD statement directly following a SELECT or EXCLUDE statement 
marks the beginning of the next copy step and the end of the 
preceding copy step within the copy operation. If such an INDD 
statement cannot be found in the copy operation, then the copy 
operation consists of only one copy step. 


Figure 22 on page 50 shows the copy operation/copy step concept. 
Two copy operations are shown in the figure: the first begins 


with the statement containing the name COPOPERL, and the second 
begins with the statement containing the name COPOPER2. 


1 Also applies to an unload or load operation or step. 
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First Copy Operation | fo 
eu 


STEP 1 COPOPERI COPY OUTDD=AA, INDD=2ZZ 
INDD=(BB,CC) 
INDD=DD 
INDD=EE 
SELECT MEMBER=CMEMA,MEMB) 
SELECT MEMBER=MENC 


STEP 2 INDD=GG 


INDD=HH 
EXCLUDE MEMBER=(MEMD,MEMH) 


Second Copy Operation 


STEP 1 COPOPER2 COPY OUTDD=YY,1I=(MM,PP),LIST=NO 
SELECT MEMBER=MEMB 
STEP 2 INDD=KK 


INDD=CLL,NN)D 
SX 


Figure 22. Multiple Copy Operations within a Job Step 


There are two copy steps within the first copy operation shown 
in Figure 22: the first begins with the COPY statement and 
continues through the two SELECT statements; the second begins ‘ 
with the first INDD statement following the two SELECT - % 
statements and continues through the EXCLUDE statement preceding ~~ / 
the second COPY statement. There are two copy steps within the = 
second copy operation: the first begins with the COPY statement 

and continues through the SELECT statement; the second begins 

with the INDD statement immediately following the SELECT 

statement and ends with the same 7X (delimiter) statement that. 

ended the copy operation. 


The format of the COPY statement is: 


[label] COPY OUTDD=ddname | 
INDD=[E (Jddnamell,ddname2] 
C>€ddname3,RJI[,...1£3] 
[,LIST=NO] 


The control statement operation and keyword parameters can be 
abbreviated to their initial letters; for example, COPY can be 
abbreviated to C and OUTDD can be abbreviated to QO. 


If there are no keywords other than OUTDD on the COPY card, 
compatibility with the previous version of the data set 1s 
implied. In this case, comments may not be placed on this card. 


The OUTDD and INDD keyword parameters on COPY statements name DD 
statements that define data sets to be copied, unloaded, or 
loaded. The INDD parameter names the DD statement that 
identifies the input data set; the OUTDD parameter names the DD 
statement that identifies the output data set. 
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ALTERMOD Statement 


Only one INDD and one OUTDD Keyword may be placed ona single 
card. OUTDD must appear on the COPY statement. When INDD 
appears on a separate card, no other operands may be specified 
on that card. If INDD appears on a separate card, it is not 
preceded by a comma. 


The characteristics of the input and output data sets depend on 
the operation to be performed, as follows: 


® If a data set is to be copied, the input and output data 
sets must both be partitioned data sets. 


® If a data set is to be loaded, the input data set may be 
either partitioned or sequential; the output data set must 
be partitioned. 


e If a data set is to be unloaded, the input data set must be 
either a partitioned data set or a sequential data set that 
was created as a result of a previous unload operation. The 
output data set may reside on either a direct access or tape 
volume. If the output data set is to reside ona direct 
access volume, the organization of the data set must be 
specified as sequential. To specify sequential organization 
for a direct access data set, specify the SPACE parameter, 
omitting the directory or index value. 


If more than one ddname is specified, the input partitioned data. 
sets are processed in the same sequence as that in which the 
ddnames are specified. 


A COPY statement must precede a SELECT or EXCLUDE statement when 
members are selected for or excluded from a copy, unload, or 
load step. In addition, if an input ddname is specified ona 
separate INDD statement, it must follow the COPY statement and 
precede the SELECT or EXCLUDE statement to which it applies. If 
one or more INDD statements are immediately followed by the 7x 
card or another COPY or COPYMOD or ALTERMOD statement, a full 
copy, unload, or load is invoked onto the most recent previously 
specified output partitioned data set. 


A full copy, unload, or load is invoked only by specifying 
different input and output ddnames; that is, by omitting the 
SELECT or EXCLUDE statement from the copy step. 


The compress-in-place function is valid for partitioned data 
sets. Compress-in-place is normally invoked by specifying the 
same ddname for both the OUTDD and INDD parameters of a COPY 
statement. If multiple entries are made on the INDD statement, 
a compress-in-place will occur if one of the input ddnames is 
the same as the ddname specified by the OUTDD parameter of the 
COPY statement, provided that SELECT or EXCLUDE is not 
specified. 


When a compression is invoked by specifying the same ddname for 
the INDD and OUTDD parameters, and the DD statement specifies a 
block size that differs from the block size specified in the 
DSCB, the DSCB block size is overridden; however, no physical 
reblocking or deblocking is done by IEBCOPY. 


The ALTERMOD statement is required to alter load modules in 
Place. The function is designed to read modules that were 
written by earlier versions of the linkage editor and to insert 
RLD and segment text block counts. It can be used to alter 
modules that may have erroneous RLD counts-—for example, modules 
that were created by a program other than the linkage editor or 
copied by a program other than IEBCOPY. 


For overlay load modules, the ALTERMOD function can also be used 


to insert or correct segment text block counts in the overlay 
note list. 


IEBCOPY Program 51 





COPYMOD Statement 


PDS directory entries, control records, and note list records 
may be modified. If the control records or note list records é : 
are already correct, they will not be rewritten. ‘a 


Members that are not recognized as load modules will not be 
altered. 


Load modules in scatter-load format and modules that were 
link-edited with the noneditable (NE) attribute will not be 
altered. 


The alter-in-place function may be performed multiple times for 
the same load module or module library. Altering has no 
cumulative effect. 


The format of the ALTERMOD statement is: 


Clabell ALTERMOD OUTDD=ddname 
[,LIST=NO] 





OUTDD specifies the partitioned data set that is to be altered. 


The replace (R) and RENAME functions of IEBCOPY cannot be 
specified in the same step with ALTERMOD. 


The COPYMOD statement is required to copy, reblock, and alter 

modules ina library. When copying load modules, the selected 
members will be copied from the input data set(€s) to the output 
data set. The output data set may be new or it may be an Nie s 
existing load library to which members are to be added. The 

output data set must be a partitioned data set, and it cannot 
also be an input data set Creblock-in-place is not permitted). 


ide 


The input data set(€s) may be partitioned, or may be a sequential 
data set created by unloading a partitioned data set with the 
COPY function. However, if the sequential data set was created 
with a user-supplied block size, it cannot be used as an input 
to COPYMOD. 


The text records and the RLD/control records will be rebuilt; 
the note list records of overlay load modules will also be 
rebuilt. Other records such as SYM and CESD records will be 
copied unchanged. 


Load modules in scatter-load format and modules that were 
link-edited with the noneditable (NE) attribute will be copied, 
but not reblocked or altered (that is, as if the member were 
specified with a COPY statement). Members that are not 
ee as load modules will be copied, but not reblocked or 
altered. 


Load modules in page-aligned format are copied and altered, but 
not reblocked. 


Load modules that have the downward compatible (DC) linkage 
editor attribute are reblocked to a maximum block size of 1024 
C1K) regardless of the value specified on the MINBLK or MAXBLK 
parameter. 


Note that modules that are not reblocked by COPYMOD, such as 

modules marked with the noneditable attribute, cannot be copied 

to a device that has a track size smaller than the input block 

ee They may, however, be link-edited again with a smaller 
ock size. 
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SELECT Statement 


The replace (R) function may be specified with input ddnames 
and/or member names to cause like-named modules to be replaced, 
aie may be omitted to prevent the copying of like-named 
modules. 


The rename function may be invoked to specify a new name for the 
selected member. For more information, see "SELECT Statement." 


The format of the COPYMOD statement is: 


[label] COPYHOD OUTDD=ddname 


» LINDD=[E Ci]ddnamell,ddname2] 
[> €ddname3,R)JI][,...110)] 


[»MAXBLK={nnnnnIl nnk} I 


[»>MINBLK={nnnnn I nnk}] 
[»LIST=NO] 





INDD specifies the partitioned or sequential Cunloaded) data set 
from which load modules are to be read. OUTDD specifies the 
partitioned data set to which load modules are to be copied. 
MAXBLK specifies the maximum block size for text records in the 
output data set. MINBLK specifies the minimum block size for 
text records at the end of a track in the output data set. (See 
the discussions of MAXBLK and MINBLK on pages 56 and 57.) 


The SELECT statement specifies members Cor modules, in the case 
of ALTERMOD or COPYMOD) to be selected from input data sets to 
be altered, copied, loaded, or unloaded to an output data ser. 
This statement is also used to rename and/or replace selected 
members on the output data set. More than one SELECT statement 
may be used in succession, in which case the second and 
ee a statements are treated as a continuation of the 
irst. 


The SELECT statement must follow either a COPY statement that 
includes an INDD parameter, a COPYMOD statement, or one or more 
INDD statements. A SELECT statement cannot appear with an 
EXCLUDE statement in the same copy, unload, or load step, and it 
cannot be used with a compress-in-place function. 


When a selected member is found on an input data set, it is not 
searched for again, regardless of whether the member is copied, 
unloaded, or loaded. A selected member will not replace an 
identically named member on the output partitioned data set 
unless the replace option is specified on either the data set or 
member level. (For a description of replacing identically named 
members, see "Replacing Identically Named Members™ on page 38 
and "Replacing Selected Members™ on page 39.) =In addition, 
unless the replace option is specified, a renamed member will 
not replace a member on the output partitioned data set that has 
the same new name as the renamed member. 


The replace (R) and rename, (newname) options cannot be specified 
with ALTERMOD. 


The format of the SELECT statement is: 
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EXCLUDE Statement 


[label] | SELECT | MEMBER= {L(Jnamelf,name2]L,...1[)1| 
({(namel»newnamel,RI)JI[,...1]1] 
(namel»newname)[,...]| 
(namely, RIE»...1L)13 





where: 


MEMBER= 
specifies the members to be selected from the input data 
set. The values that can be coded are: 


name 
specifies the name of a member that is to be selected 
in a copy step. Each member name specified within one 
copy step must be unique; that is, duplicate names 
cannot be specified as either old names, or new names, 
or both, under any circumstances. 

newname 
specifies a new name for a selected member. The 
member 1S copied, unloaded, or loaded to the output 
partitioned data set using its new name. If the name 
already appears on the output partitioned data set, 
the member is not copied unless replacement CR) is 
also specified. )pnewname cannot be specified with 
ALTERMOD. 

R 


specifies that the input member is to replace any 
identically named member that exists on the output 
partitioned data set. The replace option is not valid 
for an unload operation. R cannot be specified with 
ALTERMOD. 


The control statement operation and keyword parameters can be 
abbreviated to their initial letters; for example, SELECT can be 
abbreviated to S and MEMBER can be abbreviated to M 


To rename a member, the old member name is specified in the 
SELECT statement, followed by the new name and, optionally, the 
R parameter. When this option is specified, the Old member name 
and new member name must be enclosed in parentheses. When any 
option within parentheses is specified anywhere in the MEMBER 
field, the entire field, exclusive of the MEMBER Keyword, must 
be enclosed in a second set of parentheses. 


The EXCLUDE statement specifies members to be excluded from the 
copy, unload, or load step. Unlike the selective 
copy/alter/unload/load, an exclusive copy/alter/unload/load 
causes all members (Cor modules, in the case of ALTERMOD or 
COPYMOD) specified on each EXCLUDE statement to be omitted from 
the operation. 


More than one EXCLUDE statement may be used in Succession, in 
which case the second and subsequent statements are treated as a 
continuation of the first. The EXCLUDE statement must follow 
either a COPY statement that includes an INDD parameter, an 
ALTERMOD or COPYMOD statement, or one or more INDD statements. 
An EXCLUDE statement cannot appear with a SELECT statement in 
the same copy, unload, or load step; however, both may be used 
following a COPY statement for a copy or load operation. The 
marae orks statement cannot be used with a compress-in-place 
unction. 
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| The format of the EXCLUDE statement is: 


( [label] EXCLUDE MEMBER=[ (]membernamell,membername2]...[)] 


The control statement operation and keyword parameters can be 
abbreviated to their initial letters; EXCLUDE can be abbreviated 
to E and MEMBER can be abbreviated to M. 


If neither SELECT nor EXCLUDE is specified, the entire data set 
1s copied (a "full copy™). 






Applicable 
Control 
Statements 


INDD COPY 
COPYMOD 



































Description of Parameters 


ae ot dnamell,»ddname21.[, (ddname3,R)] 

pPoese 
specifies the names of the input partitioned 
data sets. INDD may, optionally, be placed ona 
separate line following a COPYMOD or COPY 
statement containing the OUTDD parameter, 
another INDD statement, a SELECT statement, or 
pila gas statement. These values can be 

coded: 


Parameters 






ddname 
specifies the ddname, which is specified on 
a DD statement, of an input data set. In 
the case of COPYMOD, this is the name of a 
load module. For an unlcoad operation, only 
one ddname may be specified per COPY 
statement. If more than one ddname is 
specified for a copy or load operation, the 
input data sets are processed in the same 
sequence as the ddnames are specified. 


specifies that all members to be copied or 
loaded from this input data set are to 
replace any identically named members on 
the output partitioned data set. (In 
addition, members whose names are not on 
the output partitioned data set are copied 
or loaded as usual.) When this option is 
specified with the INDD parameter, it does 
not have to appear with the MEMBER 
parameter (Cdiscussed in "SELECT Statement" 
on page 53) ina selective copy operation. 
When this option is specified, the ddname 
and the R parameter must be enclosed in 
parentheses; if it is specified with more 
than one ddname in INDD, the entire field, 
exclusive of the INDD parameter, must be 
enclosed ina second pair of parentheses. 















LIST COPY 
COPYMOD 


ALTERMOD 


LIST=NO 
specifies that the names of copied members are 

not to be listed on SYSPRINT at the end of each 

input data set. 


Default: The names of copied members are listed. 
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Applicable 


Control or 
Parameters {| Statements Description of Parameters 
MAXBLK | COPYMOD MAXBLK=f{nnonnn I nnk} 


specifies the maximum block size for records in 
the output partitioned data set. MAXBLK is 
normally used to specify a smaller block size 
than the default, in order to make the records 
in the data set compatible with other systems or 
programs. 


nnnnn is specified as a decimal number; K 
indicates that the nn value is to be multiplied 
by 1024 bytes. 


MAXBLK may be specified with or without MINBLK. 


Default: The track size for the output device 
or 32760, whichever is smaller. If a value 
greater than 32760 or less than GK (4096) is 
specified, the default is used. 


MEMBER SELECT MEMBER={[ CIlnamell,»name2ll,...1f£)1] 
({lnamel,newnamel,R.1IJI,...]| 
(namel,newnamel[,...1]] 

(namely, RIDL,...1}3)} 


specifies the members to be selected from the 
input data set. The values that can be coded 
for SELECT are: 


name | 

specifies the name of a member that is to 
be selected in a copy step. Each member 
name specified within one copy step must be 
unique; that is, duplicate names cannot be 
specified as either old names, or new 
names, or both, under any circumstances. 

If no member name is specified, the entire 
data set is included in the operation. 


newname 
specifies a new name for a selected member. 
The member 1s copied, unloaded, or loaded 
to the output partitioned data set using 
its new name. If the name already appears 
on the output partitioned data set, the 
member is not copied unless replacement (CR) 
1s also specified. 


specifies that the input member is to 
replace any identically named member that 
exists on the output partitioned data set. 
The replace option is not valid for an 
unload or alter operation. 





MEMBER EXCLUDE MEMBER=[E (]membernamell,membername2]...[)] 
specifies members on the input data set that are 
not to be copied, unloaded, or loaded to the 
output data set. The members are not deleted 
from the input data set unless the entire data 
set is deleted. (This can be done by specifying 
DISP=DELETE in the operand field of the input DD 
job control statement.) Each member name 
specified within one copy step must be unique. 
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Applicable 








Control 
Parameters Statements 
MINBLK COPYMOD 
( OUTDD | COPY 


COPYMOD 
ALTERMOD 


TEBCOPY EXAMPLES 


Description of Parameters 


MINBLK={nnnnn I nnk} 


specifies the minimum block size for records in 
the output partitioned data set. MINBLK 
specifies the smallest block that should be 
written on the end of a track. 


A small Cor default) MINBLK value will provide 
the most efficient DASD track utilization and 
program fetch performance for the module. A 
large value may use more DASD space and result 
in fewer records being written. 


The MINBLK keyword 18S provided for compatibility 
with earlier DFP releases in which a larger, 
less-than-track-size MINBLK value could enhance 
program fetch performance for the module. Under 
normal circumstances, MINBLK should not be 
specified. 


nnnnn is specified as a decimal number; K 
indicates that the nn value is to be multiplied 
by 1024 bytes. 


MINBLK may be specified with or without MAXBLK. 


Default: 1K €10294). If a value greater than 
MAXBLK 1s specified, MINBLK is set to the MAXBLK 
value actually used (whether specified or 
defaulted). If a value less than 1K is 
specified, MINBLK is set to 1K. 


OUTDD= ddname 

specifies the name of the output partitioned 
data set. One ddname is required for each copy, 
unload, or load operation; the ddname used must 


be specified on a DD statement. 


When the COPY or COPYMOD or ALTERMOD statement 
is used, OUTDD must be specified. 





The following examples illustrate some of the uses of IEBCOPY. 

Figure 23 on page 58 can be used as a quick~-reference guide to 

TEBCOPY examples. The numbers in the "Example™ column refer to 
examples that follow. 


Examples that use disk or tape in place of actual device numbers 
must be changed before use. See "DASD and Tape Device Support" 
on page 3 for valid device number notation. 
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| COPY | Disk | Full Copy. The input and output data sets are ] 

| partitioned. 

| COPY Disk Multiple input partitioned data sets. 2 
Fixed-blocked and fixed-record formats. 


Dask All members are to be copied. Identically © 
| named members on the output data set are to be 
replaced. The input and output data sets are 
| partitioned. 


Disk 














Selected members are to be copied. 
Variable-blocked data set 1s to be created. 
Record formats are variable-blocked and 
Variable. The input and output data sets are 
partitioned. 















Selected members are to be copied. One member 
is to replace an identically named member on 
the output data set. The input and output 
data sets are partitioned. 










Selected members are to be copied. Members 
found on the first input data set replace 
identically named members on the output data 
set. The input and output data sets are 
partitioned. 












Selected members are to be copied. Two 
members are to be renamed. One renamed member 
is to replace an identically named member on 
the output data set. The input and output 
data sets are partitioned. 


os 


ale 


Exclusive Copy. Fixed-blocked and 
fixed-record formats. The input and output 
data sets are partitioned. 



















Unload and 


Disk and Copy a partitioned data set to tape (Cunload) 
Compress— Tape and compress-in-place if the first step is 
in-place successful. 


COPY and 
Compress— 
in-place 


te 
© 


| Disk | Full copy to be followed by a 
7 | compress-in-place of the output data set. 
| | Replace specified for one input data set. The 
| | | input and output data sets are partitioned. 
| COPY Disks Multiple copy operations. The input and 
: output data sets are partitioned. 
| COPY | Disks | Multiple copy operations. 
| Unload | Disk and | A partitioned data set is to be unloaded to 
| Tape tape. 


An unloaded data set is to be loaded to disk. 
. | Disk 


Unload, | Selected members are to be unloaded, loaded, 

Load, and and copied. The input data set is 

COPY partitioned; the output data set 1s 
sequential. 


Selected members are to be altered in place. 16 
| Place | | . 


Figure 23 (Part 1 of 2). IEBCOPY Example Directory 


— me 
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[operation | bevice [coments SSCSCS~S~S~S~*™ CS 


















Copy, Selected members are copied to a new data set, 
alter, and altered, and reblocked to various sizes. 
reblock 












Copy, 
alter, and 
reblock 


All members copied to tape; library scratched; 
members copied back to library, altered, and 
reblocked. 


Figure 23 (Part 2 of 2). IEBCOPY Example Directory 
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IEBCOPY EXAMPLE 1 


MVS/XA Data Ad 


In this example, a partitioned data set (DATASET5) is copied 
from one disk volume to another. Figure 24 shows the input and 
output data sets before and after processing. 

















Input 
DATASET5 
Directory 
AC 
Output 
DATASET4 


Directory 
AC 


er 





Before copy After processing 
operation DATASETS5 


Figure 24. Copying a Partitioned Data Set-—Full Copy 
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IEBCOPY EXAMPLE 2 


The example follows. 


//COPY JOB er 

//SJQOBSTEP EXEC PGM=IEBCOPY 

/7SYSPRINT DD SYSOUT=A 

//INOUTS DD DSNAME=DATASET4, UNIT=3380,VOL=SER=111112, 
7 DISP=CNEW, KEEP), SPACE=(TRK,(5,1,2)) 
//INOUTS5 DD DSNAME=DATASETS5, UNIT=3380,VOL=SER=111113, 
// 


DISP=SHR 
S/S SYSUT3 DD UNIT=SYSDA,SPACE=CTRK, C1)) 
S/SYSUT4 DD UNIT=SYSDA,SPACE=CTRK,(1)) 
/SYSIN DD XxX 
COPYOPER COPY OUTDD=INOUT4, INDD=INOUT5 
1X 





The control statements are discussed below: 


e INOUTS DD defines a new partitioned data set (DATASETS) that 
1s to be kept after the copy operation. Five tracks are 
allocated for the data set on a 3380 volume. Two blocks are 
allocated for directory entries. 


e INOUT5 DD defines a partitioned data set (DATASET5), that 
resides on a 3380 volume and contains two members CA and C). 


® SYSUT3 DD defines a temporary spill data set. One track is 
allocated on a disk volume. 


e SYSUTS4 DD defines a temporary spill data set. OQne track is 
allocated ona disk volume. 


e SYSIN DD defines the control data set, which follows in the 
input stream. The data set contains a COPY statement. 


e COPY indicates the start of the copy operation. The absence 
of a SELECT or EXCLUDE statement causes a default to a full 
copy. The OUTDD parameter specifies INOUT4 as the DD 
statement for the output data set (DATASETS); the INDD 
parameter specifies INOUT5 as the DD statement for the input 
data set. After the copy operation is finished, the output 
data set (DATASETS) will contain the same members that are 
on the input data set (DATASET5); however, there will be no 
embedded, unused space on DATASETS. 


The temporary spill data sets may or may not be opened, 
depending on the amount of virtual storage available; therefore, 
the SYSUT3 and SYSUT4 DD statements should always appear in the 
job stream. 


In this example, members are copied from three input partitioned 
data sets CDATASET1, DATASET5, and DATASET6) to an existing 
output partitioned data set (DATASET2). The sequence in which 
the control statements occur controls the manner and sequence in 
which partitioned data sets are processed. Figure 25 on page 62 
shows the input and output data sets before and after 
processing. 
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The example follows.. 





//COPY JOB 
//JOBSTEP EXEC PGM= aan 
//SYSPRINT DD SYSOUT= 
//INOUTI DD DSNAME= DATASETL, UNIT=3380,VOL=SER=111112, 
Sf DISP=SHR 
//INOUTS5 DD DSNAME=DATASETS5, UNIT=3380,VOL=SER=111114, 
// DISP=OLD 
/7INOUT2 DSNAME=DATASET2, UNIT=3380,VOL=SER=111115, 
// DISP=COLD,KEEP) 
//INOUTE DSNAME=DATASET6,UNIT=3380,VOL=SER=111117, 
// DISP=COLD, DELETE) 
S/SSYSUT3 UNIT=SYSDA, SPACE=CTRK, (1) ) 
S/SYSUTS UNIT=SYSDA, SPACE=CTRK, (1)) 
//SYSIN x | 
COPYOPER COPY OUTDD=INOUT2 
INDD=INOUT1 
INDD=INOUT6 
INDD=INOUTS5 





The control statements are discussed below: 


e INOUT1 DD defines a partitioned data set (DATASET1). This 
data set, which resides on a 3380 volume, contains three 
members (CA, B, and F) in fixed format with a logical record 
length of 80 bytes and a block size of 80 bytes. 


e INOUT5 DD defines a partitioned data set (DATASET5), which 
oe resides on a 3380 volume. This data set contains two 
( members CA and C) in fixed blocked format with a logical 
record length of 80 bytes anda block size of 160 bytes. 


e INOUT2 DD defines a partitioned data set (DATASET2), which 
resides on a 3380 volume. This data set contains two 
members (C and E) in fixed-block format. The members have a 
es record length of 80 bytes anda block size of 240 

ytes. 


e INOUT6 DD defines a partitioned data set (DATASET6), which 
resides ona 3380 volume. This data set contains three 
members (B, C, and D) in fixed-block format with a logical 
record length of 80 bytes and a block size of 400 bytes. 
This data set is to be deleted when processing is completed. 


e SYSUT3 DD defines a temporary spill data set. One track is 
allocated on a disk volume. 


e SYSUTG DD defines a temporary spill data set. One track is 
allocated ona disk volume. 


6 SYSIN DD defines the control data set, which follows in the 
input stream. The data set contains a COPY statement and 
three INDD statements. 


e COPY indicates the start of the copy operation. The absence 
of a SELECT or EXCLUDE statement causes a default to a full 
copy. The OUTDD parameter specifies INOUT2 as the DD 
statement for the output data set (DATASET2). 


® The first INDD statement specifies INOUT1 as the DD 
statement for the first input data set (DATASET1) to be 
processed. All members (A, B, and F) are copied to the 
output data set CDATASET2). 


8 The second INDD statement specifies INOUT6 as the DD 
statement for the second input data set (DATASET6) to be 
processed. Processing occurs as follows: (1) members B and 
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ITEBCOPY EXAMPLE 3 


C, which already exist on DATASET2, are not copied to the 


output data set CDATASET2), (2) member D is copied to the co 
output data set CDATASET2), and (3) all members on DATASET6 «| | 
are lost when the data set is deleted. eS 


e The third INDD statement specifies INOUT5 as the DD 
statement for the third input data set (CDATASET5) to be 
processed. No members are copied to the output data set 
CDATASET2) because all exist on DATASET2. 


The temporary spill data sets may or may not be opened, 
depending on the amount of virtual storage available; therefore, 
the SYSUT3 and SYSUT4 DD statements should always appear in the 
job stream. 


In this example, members are copied from an input partitioned 
data set (DATASET6) to an existing output partitioned data det 
CDATASET2). In addition, all copied members replace identically 
named members on the output partitioned data set. 


Figure 26 on page 65 shows the input and output data sets before 
and after processing. 


ae 
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The example follows. 





//COPY JOB ih , 
//JOBSTEP EXEC PGM=IEBCOPY 
7/7SYSPRINT DD SYSOQUT=A 
//INOUT2 DD DSNAME=DATASET2, UNIT=3380,VOL=SER=111113, 
// DISP=OLD 

//TNOUT6 DD DSNAME=DATASET6,UNIT=3380,VOL=SER=l11117, 
// 


| DISP=COLD, KEEP) 
//SYSUTS DD UNIT=SYSDA,SPACE=CTRK, C1)) 
S/S SYSUTS DD UNIT=SYSDA,SPACE=CTRK,(1)) 
S/SYSIN DD xX 
COPYOPER COPY OUTDD=INOUT2 
INDD=(CINOUT6,R)) 
1% 





The control statements are discussed below: 


e INOUT2 DD defines a partitioned data set CDATASET2), which 
resides on a 3380 volume. This data set contains two 
members (C and E). | 


@ INOUT6 DD defines a partitioned data set (CDATASET6), which 
resides on a 3380 volume. This data set contains three 
members (B, C, and D). 


e SYSUT3 DD defines a temporary spill data set. One track is 
allocated on a disk volume. | 


e SYSUT4 DD defines a temporary spill data set. One track is 
allocated on a disk volume. 


e SYSIN DD defines the control data set, which follows in the 
input stream. The data set contains a COPY statement and an 
INDD statement. 


a aS 


t 
| 


Ne ie 


e COPY indicates the start of the copy operation. The absence 
of a SELECT or EXCLUDE statement causes a default to a full 
copy. The OUTDD parameter specifies INOUT2 as the DD 
statement for the output data set CDATASET2). 


e INDD specifies INOUT6 as the DD statement for the input data 
set CDATASET6). Members B, C, and D are copied to the 
output data set (CDATASET2). The pointer in the output data 
set directory 1s changed to point to the new (copied) member 
C; thus, the space occupied by the old member C is embedded 
unused space. Member C is copied, even though the output 
data set already contains a member named "C"™, because the 
replace option is specified for all identically named 
members on the input data set; that is, the replace option 
is specified on the data set level. 


The temporary spill data sets may or may not be opened, 
depending on the amount of virtual storage available; therefore, 
the SYSUT3 and SYSUTS$ DD statements should always appear in the 
job stream. 


TEBCOPY EXAMPLE 4% 


In this example, five members (A, C, D, E, and G) are selected 
from two input partitioned data sets (DATASET6 and DATASET2) 
copied to a new output partitioned data set (DATASETS). 

Figure 27 on page 67 shows the input and output data sets before 
and after processing. 
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//COPY JOB 6554 

//JOBSTEP EXEC PGM=IEBCOPY 

//SYSPRINT DD SYSOUT=A | 

//YNOUT2 DD DSNAME=DATASET2, UNIT=3380,VOL=SER=111114, 


DISP=COLD, DELETE) 


//TNOUTE DD DSNAME=DATASET6, UNIT=3380,VOL=SER=111117, 
17 


DISP=COLD,KEEP) 


//INOUTS DSNAME=DATASET4, UNIT=3380,VOL=SER=111116, 
// 


DISP=CNEW, KEEP), SPACE=CTRK,(5,,2)), 
DCB=CRECFM=VB,LRECL=96, BLKSIZE=300) 


S/SVSUTS3 UNIT=SYSDA,SPACE=CTRK, (1)) 
S/SSYSUTS UNIT=SYSDA, SPACE=CTRK, (1)) 
S/SYSIN 

COPYOPER OUTDD=INOUTS 


INDD=INOUT6 
INDD=INOUT2 
SELECT MEMBER=(C,D,E,A,G) 





The control statements are discussed below: 


INOUT2 DD defines a partitioned data set (DATASET2), which 
resides on a 3380 volume. This data set contains two 
members (€C AND E) in variable-blocked format with a logical 
record length of 96 bytes anda block size of 500 bytes. 
This data set is to be deleted when processing is completed. 


INOUT6 DD defines a partitioned data set (DATASET6), which 
resides on a 3380 volume. This data set contains three 
members (B, C, and D) in variable-blocked format with a 
ees record length of 96 bytes and a block size of 100 
ytes. 


INOUT4 DD defines a partitioned data set (DATASET49). This 
data set 1S new and is to be kept after the copy operation. 
Five tracks are allocated for the data set on a 3380 volume. 
Two blocks are allocated for directory entries. In 
addition, records are to be copied to this data set in 
variable-block format with a logical record length of 96 
bytes anda block size of 300 bytes. 


SYSUT3 DD defines a temporary spill data set. One track is 
allocated on a disk volume. 


SYSUT4 DD defines a temporary spill data set. One track is 
allocated on a disk volume. 


SYSIN DD defines the control data set, which follows in the 
input stream. The data set contains a COPY statement, two 
INDD statements, and a SELECT statement. 


COPY indicates the start of the copy operation. The use of 
a SELECT statement causes a selective copy. The OUTDD 
parameter specifies INOUT4 as the DD statement for the 
output data set CDATASETG). 


The first INDD statement specifies INOUT6 as the DD 
statement for the first input data set CDATASET6) to be 
processed. The members specified on the SELECT statement 
are searched for. The found members (C and D) are copied to 
the output data set (DATASET4) in the order in which they 
reside on the input data set, that is, in TTR (track record) 
order. In this case, member D is copied first, and then 
member C is copied. 


The second INDD statement specifies INOUT2 as the DD 
statement for the second input data set CDATASET2) to be 
processed. The members specified on the SELECT statement 
and not found on the first input data set are searched for. 
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The found member (CE) 1s copied onto the output data set 
CDATASET4$). All members on DATASET2 are lost when the data 
set is deleted. 





e SELECT specifies the members to be selected from the input 
data sets (DATASET6 and DATASET2) to be copied to the output 
data set CDATASET4). 


The temporary spill data sets may or may not be opened, 
depending on the amount of virtual storage available; therefore, 
ane SYSUT3 and SYSUT4¢ DD statements should always appear in the 
job stream. 


IEBCOPY EXAMPLE 5 


In this example, two members (A and B) are selected from two 
input partitioned data sets (CDATASET5 and DATASET6) copied to an 
existing output partitioned data set (DATASET1). Member B 
replaces an identically named member that already exists on the 
output data set. Figure 28 on page 70 shows the input and 
output data sets before and after processing. 


//COPY JOB To 

//JOBSTEP EXEC PGM=IEBCOPY 

//SYSPRINT DD SYSOUT=A 

//TNOUTI DD DSNAME=DATASET1I,UNIT=3380,VOL=SER=l11112, 


Y/ DISP=(OLD, KEEP) 
//INQUT6 DD DSNAME=DATASET6, UNIT=3380,VOL=SER=111115, 
Y/ DISP=OLD 
//INOUTS DSNAME=DATASETS, UNIT=3380, VOL=SER=111116, 
Y/ DISP=(OLD, KEEP) 
//SYSUT3 UNIT=SYSDA, SPACE=C(TRK, (1)) 

= //3YS8UT4 UNIT=SYSDA, SPACE=C(TRK, (1)) 

( //3YSIN D 

COPYOPER OUTDD=INOUT] 


INDD=INOUT5, INOUT6 
SELECT MEMBER=CCB,,R),A) 
1% 





The control statements are discussed below: 


@ INOUT1] DD defines a partitioned data set (CDATASET1). This 
data set resides on a 3380 volume and contains three members 
CA, B, and FD). 


e INOUT6 DD defines a partitioned data set (DATASET6). This 
data set resides on a 3380 volume and contains three members 
(CB, C, and D). 


e INOUT5 DD defines a partitioned data set (DATASET5). This 
data set resides on a 3380 volume and contains two members 
CA and C). 


e SYSUT3 DD defines a temporary spill data set. One track is 
allocated on a disk volume. 


e SYSUTG DD defines a temporary spill data set. One track is 
allocated on a disk volume. 


e SYSIN DD defines the control data set, which follows in the 
input stream. The data set contains a COPY statement, an 
INDD statement, and a SELECT statement. 


e COPY indicates the start of the copy operation. The use of 
a SELECT statement causes a selective copy. The OUTDD 
parameter specifies INOUT1 as the DD statement for the 
output data set (CDATASETI). 
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Member Level 


INDD specifies INOUT5 as the DD statement for the first 


input data set (CDATASET5) to be processed and INOUT6 as the 
DD statement for the second input data set (CDATASET6) to be 


processed. Processing occurs as follows: (1) selected 


members are searched for on DATASET5, (€2) member A is found, 
but is not copied to the output data set because it already 


exists on DATASET1 and the replace option is not specified, 


(3) selected members not found on DATASET5 are searched for 


on DATASET6, and (494) member B is found and copied to the 
output data set CDATASET1), even though a member named B 
already exists on the output data set, because the replace 
option is specified for member B on the member level. The 


pointer in the output data set directory is changed to point 
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IEBCOPY EXAMPLE 6 


to the new Ccopied) member B; thus, the space occupied by 
the old member B is unused. 


@ SELECT specifies the members to be selected from the input 
data sets (DATASET5 and DATASET6) to be copied to the output 
data set (DATASET1). 


The temporary spill data sets may or may not be opened, 
depending on the amount of virtual storage available; therefore, 
the SYSUT3 and SYSUTG DD statements should always appear in the 
job stream. 


In this example, two members CA and B) are selected from two 
input partitioned data sets (DATASET5 and DATASET6) copied to an 
existing output partitioned data set CDATASET1). All members 
found on DATASET5 replace identically named members on DATASET1. 
Figure 29 on page 72 shows the input and output data sets before 
and after processing. 
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Figure 29. Selective Copy with "Replace”™ Specified on the Data Set Level 
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| // COPY JOB eb 

a //JOBSTEP EXEC PGM=IEBCOPY 

- //SYSPRINT DD SYSOUT=A 
//TNOUTI1 DD DSNAME=DATASETI1,UNIT=3380,VOL=SER=111112, 
// DISP=COLD, KEEP) 
//ITNOUTS DSNAME=DATASET5, UNIT=3380,VOL=SER=111114, 
// DISP=COLD, DELETE) 
//INOUT6 DSNAME=DATASET6,UNIT=3380,VOL=SER=111115, 
/7 DISP=COLD,KEEP) 
//SYSUT3 UNIT=SYSDA,SPACE=CTRK,(€1)) 
//SYSUT4 UNIT=SYSDA,SPACE=CTRK, €1)) 
//SYSIN 
COPYOPER OUTDD=INOUTI1 

INDD=C(CINOUT5,R),INOUT6) 
SELECT MEMBER=CA,B) 

/* 





The control statements are discussed below: 


° INOUT1 DD defines a partitioned data set CDATASET1). This 
data set resides on a 3380 volume and contains three members 
CA, B, and F). 


e INOUT5 DD defines a partitioned data set (CDATASET5). This 
data set contains two members (A and C) and resides on a 
3380 volume. This data set is to be deleted when processing 
1s completed. 


e INOUT6 DD defines a partitioned data set (DATASET6). This 
data set contains three members (B, C, and D) and resides on 
a 3380 volume. , 


( ® SYSUT3 DD defines a temporary spill data set. One track is 
mere allocated on a disk volume. 


e SYSUT4 DD defines a temporary spill data set. One track is 
allocated on a disk volume. 


e SYSIN DD defines the control data set, which follows in the 
input stream. The data set contains a COPY statement, an 
INDD statement, and a SELECT statement. 


® COPY indicates the start of the copy operation. The 
presence of a SELECT statement causes a selective copy. The 
OUTDD operand specifies INOUTI1 as the DD statement for the 
output data set CDATASETI). 


e INDD specifies INOUT5 as the DD statement for the first 
input data set CDATASET5) to be processed and INOUT6 as the 
statement for the second input data set (DATASET6) to be 
processed. Processing occurs as follows: (1) selected 
members are searched for on DATASET5, (€2) member A is found 
and copied to the output data set (DATASET1) because the 
replace option was specified on the data set level for 
DATASET5, €3) member B, which was not found on DATASET5 is 
searched for and found on DATASET6, (4) member B is not 
copied because DATASET1 already contains a member called 
member B and the replace option is not specified for 
DATASET6. The pointer in the output data set directory is 
changed to point to the new (copied) member A; thus, the 
space occupied by the old member A 18S unused. 


@ SELECT specifies the members to be selected from the input 
data sets CDATASET5 and DATASET6) to be copied to the output 
data set (CDATASETI). 
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The temporary spill data sets may or may not be opened, 

depending on the amount of virtual storage available; therefore, 
the SYSUT3 and SYSUT4 DD statements should always appear in the 7 
job stream. ‘ 





IEBCOPY EXAMPLE 7 


In this example, four members (CA, B, C, and D) are selected from 
an input partitioned data set (CDATASET6) copied to an existing 
output partitioned data set CDATASET3). Member B is renamed H; 
member C is renamed J; and member D is renamed K. In addition, 
member C Crenamed J) replaces the identically named member (J) 
on the output partitioned data set. Figure 30 on page 75 shows 
the input and output data sets before and after processing. 
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//COPY JOB... 

//JOBSTEP EXEC PGM=IEBCOPY 

Z/SYSPRINT DD SYSOQUT=A : 

//INOUTS DD DSNAME=DATASET3,UNIT=disk, VOL=SER=111114, 
// DISP=COLD,KEEP) 

//TNOUT6 DSNAME=DATASET6, UNIT=disk, VOL=SER=111117, 


// DISP=COLD, DELETE) 

//SYSUTS UNIT=SYSDA, SPACE=CTRK, (1)) 

S/SSYSUTS UNIT=SYSDA,SPACE=CTRK, C1)) 

S/SYSIN X 

COPYOPER OUTDD=INOUT3,INDD=INOUT6 
SELECT MEMBER=((B,H),(€C,J,R),A,(0D,K)) 

7% 





The control statements are discussed below: 


INOUT3 DD defines a partitioned data set (DATASET3). This 
data set contains four members (D, G, H, and J) and resides 
on a disk volume. 


INOUT6 DD defines a partitioned data set (DATASET6). This 
data set contains three members (B, C, and D) and resides on 
a disk volume. DATASET6 is to be deleted when processing is 
completed; thus, all members on this data set are lost. 


SYSUT3 DD defines a temporary spill data set. One track is 
allocated on a disk volume. 


SYSUT4 DD defines a temporary spill data set. One track is 
allocated on a disk volume. 


SYSIN DD defines the control data set, which follows in the 
input stream. The data set contains a COPY statement, an 
INDD statement, and a SELECT statement. 


COPY indicates the start of the copy operation. The 
presence of a SELECT statement causes a selective copy. The 
OUTDD parameter specifies INOUT3 as the DD statement for the 
output data set (DATASET3). 


INDD specifies INOUT6 as the DD statement for the input data 
set CDATASET6). Processing occurs, as follows: 


1. Selected members are searched for on DATASET6. 


2. Member B is found, but is not copied to DATASET3 because 
its intended new name (H) is identical to the name of a 
member (CH), which already exists on the output data set, 
and replace is not specified. 


3. Member C is found and copied to the output data set 
CDATASET3), although its new name (J) is identical to 
the name of a member (J), which already exists on the 
output data set, because the replace option is specified 
for the renamed member. 


G4. Member D is copied onto the output data set (DATASETS) 
because its new name (K) does not already exist there. 


SELECT specifies the members to be selected from the input 
data set (DATASET6) to be copied to the output data set 
CDATASETS3). 


The temporary spill data sets may or may not be opened, 
depending on the amount of virtual storage available; 
therefore, the SYSUT3 and SYSUT4 DD statements should always 
appear in the job stream. 
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TEBCOPY EXAMPLE 8 


In this example, five members (CA, B, C, J, and L) are excluded 
from the copy operation when each of the input partitioned data 
sets (CDATASET1, DATASET3, and DATASET6) is processed. In 
addition, replace is specified for the last input partitioned 
data set CDATASET6) to be processed; thus, with the exception of 
the members specified on the EXCLUDE statement, all members on 
DATASET6 will replace any identically named members on the 
output partitioned data set (DATASETS). Figure 31 on page 78 
shows the input and output data sets before and after 
processing. 


//COPY JOB. was 
//JOBSTEP EXEC PGM=IEBCOPY 
7/SYSPRINT DD SYSOUT=A 
//YTNOUT1 DD DSNAME=DATASET1, UNIT=disk, VOL=SER=l111112, 
// DISP=COLD, KEEP) 
//7TNOUTS3 DD DSNAME=DATASET3, UNIT=disk, VOL=SER=111114, 
4/7 DISP=OLD 
//TNOUTS DD DSNAME=DATASETS4, UNIT=disk,VOL=SER=111115, 
/7f DISP=CNEW, KEEP), SPACE=C(TRK,(€3,1,2)), 
// DCB=C(LRECL=100,RECFM=FB, BLKSIZE=400) 
//TNOUT6 DD DSNAME=DATASET6,UNIT=disk, VOL=SER=111116, 
// DISP=OLD 
S/SYSUT3 DD UNIT=SYSDA,SPACE=CTRK,(1)) 
SSSYSUTS DD UNIT=SYSDA,SPACE=CTRK, C1)) 
4/SYSIN DD xX 
COPYOPER COPY OUTDD=INOUTS, | 
INDD=INOUT1, INOUTS, CINOUT6,R) 
EXCLUDE MEMBER=CA,J,B,L,C) 
7X 





The control statements are discussed below: 


® INOUT1 DD defines a partitioned data set (DATASET1). This 
data set contains three members CA, B, and F) and resides on 
a disk volume. The record format is fixed-blocked with a 
logical record length of 100 bytes and a block size of 400 
bytes. 


® INOUT3 DD defines a partitioned data set (DATASET3), which 
resides on a disk volume. This data set contains four 
members (D, G, H, and J) in fixed-block format with a 
ae tte record length of 100 bytes and a block size of 600 
ytes. 


e INOUT4G DD defines a new partitioned data set (DATASETS). 
Three tracks are allocated for the copied members ona disk 
volume. Two blocks are allocated for directory entries. In 
addition, records are to be copied to this data set in 
fixed-blocked format with a logical record length of 100 
bytes and a block size of 400 bytes. 


° INOUT6 DD defines a partitioned data set (DATASET6). This 
data set contains three members (B, C, and D) in fixed 
format. The records have a logical record length of 100 
bytes and a block size of 100 bytes. This data set resides 
on a disk volume. 


e SYSUT3 DD defines a temporary spill data set. One track is 
allocated on a disk volume. 


e SYSUT4 DD defines a temporary spill data set. One track is 
allocated on a disk volume. 


e SYSIN DD defines the control data set, which follows in the 


input stream. The data set contains a COPY statement and an 
EXCLUDE statement. 
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Figure 31. Exclusive Copy with "Replace™ Specified for One Input Partitioned Data 
Set 





e COPY indicates the start of the copy operation. The 
presence of an EXCLUDE statement causes an exclusive copy. 


The OUTDD parameter specifies INOUTS as the DD statement for 
the output data set (DATASETS). The INDD parameter 


specifies INOUT1 as the DD statement for the first input 
data set (DATASET1) to be processed, INOUT3 as the DD 
statement for the second input data set CDATASET3) to be 
processed, and INOUT6 as the DD statement for the last input 


data set (DATASET6) to be processed. Processing occurs, as 
follows: 


1. Member F, which is not named on the EXCLUDE statement, 
is copied from DATASETI1. 
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2. Members D, G,. and H, which are not named on the EXCLUDE 
statement, are copied from DATASET3. 


3. Member D is copied from DATASET6 because the replace 
option 1s specified for nonexcluded members. 


The pointer in the output data set directory is changed to 
point at the new (copied) member D; thus, the space occupied 
by the Old member D (copied from DATASET3) is unused. 


e EXCLUDE specifies the members to be excluded from the copy 
operation. The named members are excluded from all of the 
input partitioned data sets specified in the copy operation. 


The temporary spill data sets may or may not be opened, 
depending on the amount of virtual storage available; therefore, 
the SYSUT3 and SYSUT4 DD statements should always appear in the 
job stream. 


In this example, a partitioned data set is unloaded to a tape 
volume to create a backup copy of the data set. If this step is 
successful, the partitioned data set is to be compressed in 
place. 


//SAVE JOB... 
//STEPI EXEC PGM=IEBCOPY 
//SYSPRINT DD SYSOQUT=A 
“7ITNPDS DD DSNAME=PARTPDS,UNIT=disk, VOL=SER=PCP001, 
// DISP=OLD 
/ 7 BACKUP DD DSNAME=SAVDATA,UNIT=tape, VOL=SER=TAPEO3, 
// DISP=CNEW, KEEP),LABEL=(€,SL) 
S/7SYSUTS3 DD DSNAME=TEMP1,UNIT=disk, VOL=SER=111111, 
// DISP=C(NEW, DELETE), SPACE=(80,(60,45)) 
S/SYSIN DD xX 

COPY OUTDD=BACKUP, INDD=INPDS 
1% 


S/STEP2 EXEC PGM=IEBCOPY,COND=(0,NE), 
// PARM="SIZE=99999999K'! 
//7SYSPRINT BD SYSOUT=A 
//COMPDS DD DSNAME=PARTPDS,UNIT=disk, DISP=OLD, 
// VOL=SER=PCP001 
S/SYSUTS DD DSNAME=TEMPA, UNIT=disk,VOL=SER=111111, 
// DISP=CNEW, DELETE), SPACE=(80, (60,45) ) 
SASYSUTS4 DD DSNAME=TEMPB,UNIT=disk,VOL=SER=111111, 
// SPACE=(256,(15,1)),DCB=KEYLEN=8 
S/SYSIN DD xX 

COPY OUTDD=COMPDS, INDD=COMPDS 
7% 





The control statements are discussed below: 


e INPDS DD defines a partitioned data set (PARTPDS) that 
resides ona disk volume and is assumed to have 700 members. 
The number of members is used to calculate the space 
allocation on SYSUT3. 


e BACKUP DD defines a sequential data set to hold PARTPDS in 
unloaded form. Block size information can optionally be 
added; this data set must be NENW. 

e SYSUT3 DD defines the temporary spill data set. 


® SYSIN DD defines the control data set, which follows in the 
input stream. The data set contains a COPY statement. 
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e COPY marks the beginning of the unload operation; the 
absence of an EXCLUDE or SELECT statement causes the entire ao 
partitioned data set CINDD=INPDS) to be unloaded to a ‘ae 
sequential data set COUTDD=BACKUP). ‘7 


@ The second EXEC statement marks the beginning of the 
compress-in-place operation. The SIZE parameter indicates 
that the buffers are to be as large as possible. The COND 
parameter indicates that the compress-in-place is to be 
performed only if the unload operation was successful. 


e COMPDS DD defines a partitioned data set CPARTPDS) that 
contains 700 members and resides on a disk volume. 


e SYSUT3 DD defines the temporary spill data set to be used if 
there 1s not enough space in main storage for the input data 
set's directory entries. TEMPA contains one 80-character 
record for each member. 


e SYSUTS DD defines the temporary spill data set to be used if 
there 1s not enough space in main storage for the output 
partitioned data set's directory blocks. TEMPB contains one 
256-character record for each directory block. 


e SYSIN DD defines the control data set, which follows in the 
input stream. The data set contains a COPY statement. 


e COPY marks the beginning of the copy operation. The absence 
of a SELECT or EXCLUDE statement causes a default to a full 
copy. Because the same DD statement is specified for both 
the INDD and OUTDD operands, the data set 1s compressed in 
place. 


The temporary spill data sets may or may not be opened, 
depending on the amount of virtual storage available; therefore, 
the SYSUT3 and SYSUT4 DD statements should always appear in the 
job stream. However, the SYSUT4 data set is never used for an 
unload operation. 


For an unload operation, only one INDD data set may be specified 
for one OUTDD data set. 
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In this example, two input partitioned data sets (DATASET5 and 
DATASET6) are copied to an existing output partitioned data set 
CDATASET1L). In addition, all members on DATASET6 are copied; 
members on the output data set that have the same names as the 
copied members are replaced. After DATASET6 1s processed, the 
output data set CDATASET1) is compressed in place. Figure 32 on 
page 81 shows the input and output data sets before and after 
processing. 


//COPY JOB... 

//JOBSTEP EXEC PGM=IEBCOPY 

7Z/SYSPRINT DD SYSOUT=A | 
//TNOUTI DD DSNAME=DATASET1,UNIT=3380,VOL=SER=111112, 
11 DISP=COLD, KEEP) 

//INOUTS5 DD DSNAME=DATASET5, UNIT=3380,VOL=SER=111114, 
// DISP=OLD 

//INOUT6 DD DSNAME=DATASET6, UNIT=3380,VOL=SER=111115, 
// DISP=COLD, KEEP) 

S/SYSUTS DD UNIT=SYSDA,SPACE=CTRK, (1) ) 

S/SSYSUT4 DD UNIT=SYSDA,SPACE=CTRK, (1)) 

Z/7SYSIN DD Xx 

COPYOPER COPY OQUTDD=INOUTI1 


INDD=INOUTS5, CINOUT6,R),INOUT1 
7 
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The control statements are discussed below: 


° INOUT1 DD defines a partitioned data set (DATASET1). This fe 
data set contains three members (CA, B, and F) and resides on ae 
a 3380 volume. 


® INOUT5 DD defines a partitioned data set (DATASET5). This 
data set contains two members CA and C) and resides on a 
3380 volume. 


° INOUT6 DD defines a partitioned data set (DATASET6). This 
data set contains three members CB, C, and D) and resides on 
a 3380 volume. 


ff ™ 


e SYSUT3 DD defines a temporary spill data set. One track is 
allocated on a disk volume. 


e SYSUT4 DD defines a temporary spill data set. One track is 
allocated on a disk volume. 


e SYSIN DD defines the control data set, which follows in the 
input stream. The data set contains a COPY statement and an 
INDD statement. 


@ COPY indicates the start of the copy operation. The OUTDD 
operand specifies INOUTI1 as the DD statement for the output 
data set (DATASET1). The absence of a SELECT or EXCLUDE 
statement causes a default to a full copy. 


e INDD specifies INOUT5 as the DD statement for the first 
input data set (DATASET5) to be processed. It then 
specifies INOUT6 as the DD statement for the second input 
data set (DATASET6) to be processed; in addition, the 
replace option is specified for all members copied from 
DATASET6. Finally, it specifies INOUT1 as the DD statement 


for the last input data set (DATASET1) to be processed; this . ~ 
causes a compress~in-place of DATASET] because it is also 

ie late as the output data set. Processing occurs, as Me 
ollows: 


1. Member A is not copied from DATASET5 onto the output 
data set (DATASET1), because it already exists on 
BRraeera: and the replace option was not specified for 


2. Member C is copied from DATASETS to the output data set 
CDATASET1), occupying the first available space. 


3. All members are copied from DATASET6 to the output data 
set (DATASET1), immediately following the last member. 
Members B and C are copied even though the output data 
set already contains members with the same, names 
leant the replace option is specified on the data set 

eve 


The pointers in the output data set pee tony: are changed to 
point to the new members B and C; thus, the space occupied 
by the old members B and C is unused. The members currently 
on DATASET] are compressed in place, thereby eliminating 
embedded unused space. 


The temporary spill data sets may or may not be opened, 
depending on the amount of virtual storage available; therefore, 
oe strean and SYSUT4$ DD statements should away appear in the 
job stream. 
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( In this example, members are selected, excluded, and copied from 
input partitioned data sets onto an output partitioned data set. 
This example is designed to illustrate multiple copy operations. 
Figure 33 on page 84 shows the input and output data sets before 
and after processing. 


The example follows. 
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Directory 
MA MB MC MD 
ME MF MG 
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Before copy After compressing After processing 
operation in place DATASETB 


Figure 33 (Part 1 of 2). Multiple Copy Operations/Copy Steps 
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Figure 33 (Part 2 of 2). Multiple Copy Operations/Copy Steps 
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//COPY JOB... 
//JOBSTEP EXEC PGM=ITEBCOPY 
//SYSPRINT DD SYSOUT=A 
//TNOUTA DD DSNAME=DATASETA, UNIT=disk, VOL=SER=111113, 
// DISP=OLD 
//TNOUTB DD DSNAME=DATASETB,UNIT=disk, VOL=SER=111115, 
at DISP=COLD, KEEP) 
//TNOUTC DD DSNAME=DATASETC, UNIT=disk, VOL=SER=111114, 
17 DISP=COLD, KEEP) 
//TNOUTD DD DSNAME=DATASETD,UNIT=disk, VOL=SER=111116, 
// DISP=OLD 
//TNOUTE DD DSNAME=DATASETE,UNIT=disk, VOL=SER=111117, 
47 DISP=OLD 
“/TNOUTX DD DSNAME=DATASETX,UNIT=disk, VOL=SER=111112, 
// DISP=CNEW, KEEP), SPACE=C(TRK,(3,1,2)) 
“/SYSUT3 DD UNIT=SYSDA,SPACE=CTRK, (1)) 
//SYSUT4 DD UNIT=SYSDA,SPACE=CTRK, C1)) 
//SYSIN DD xX 
COPERST1 COPY OQO=INOUTX,I=INOUTA 
COPY OUTDD=INOUTA,INDD=INOUTA 
INDD=INOUTB 
COPY O=INOUTA 
INDD=INOUTD 
EXCLUDE MEMBER=MM 
INDD=INOUTC 
SELECT MEMBER=CCML,MD,R)) 
INDD=INOUTE 





The control statements are discussed below: 


e INOUTA DD defines a partitioned data (DATASETA). This data \ 
set contains seven members (MA, MB, MC, MD, ME, MF, and MG) Mass 10 
and resides ona disk volume. 


e INOUTB DD defines a partitioned data set (DATASETB). This 
ae set oo on a disk volume and contains two members 
CMA and MJ). 


e INOUTC DD defines a partitioned data set (DATASETC), that 
resides ona disk volume. The data set contains four 
members CMF, ML, MM, and MN). 


@ INOUTD DD defines a partitioned data set (DATASETD). This 
data set resides ona disk volume and contains two members 
CMM and MP). 


e INOUTE DD defines a partitioned data set (DATASETE). This 
data set contains four members (MD, ME, MF, and MT) and 
resides ona disk volume. 


e INOUTX DD defines a partitioned data set (DATASETX). This 
data set is new and is to be kept after the copy operation. 
Three tracks are allocated for the data set ona disk 
volume. Two blocks are allocated for directory entries. 


e SYSUT3 DD defines a temporary spill data set. One track is 
allocated ona disk volume. 


e SYSUT4 DD defines a temporary spill data set. One track is 
allocated on a disk volume. 


e SYSIN DD defines the control data set, which follows in the 
input stream. The data set contains two COPY statements, 
several INDD statements, a SELECT statement, and an EXCLUDE 
statement. 


e The first COPY statement indicates the start of the first 
copy operation. This copy operation is done to create a 
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backup copy of DATASETA, which 18S compressed in place in the 
second copy operation. 


( e The second COPY statement indicates the start of another 
- copy operation. The absence of a SELECT or EXCLUDE 
statement causes a default to a full copy; however, the same 
DD statement, INOUTA, is specified for both the INDD and 
OUTDD parameters, causing a compress-in-place of the 
specified data set. 


The output data set 1S compressed in place first to save 
Space because it is known that it contains embedded, unused 
space. 


INDD specifies INOUTB as the DD statement for the input data 
set CDATASETB) to be copied. Only member MJ is copied, 
because member MA already exists on the output data set. 


® The third COPY statement indicates the start of the third 
copy operation. The OUTDD parameter specifies INOUTA as the 
DD statement for the output data set (DATASETA). This copy 
operation contains more than one copy step. 


The first INDD statement specifies INOUTD as the DD 
statement for the first input data set CDATASETD) to be 
processed. Only member MP is copied to the output data set 
(DATASETA) because member MM is specified on the EXCLUDE 
statement. EXCLUDE specifies the member to be excluded from 
the first copy step within this copy operation. 


The second INDD statement marks the beginning of the second 
copy step for this copy operation and specifies INOUTC as 
the DD statement for the second input data set CDATASETC) to 
be processed. Member ML is searched for, found, and copied 
to the output data set (CDATASETA). Member ML is copied even 
though its new name (MD) is identical to the name of a 


-_ member (MD) that already exists on the output data set, 
: peat ag the replace option is specified for the renamed 
member. 


SELECT specifies the member to be selected from the input 
data set CDATASETC) to be copied to the output partitioned 
data set. 


The third INDD statement marks the beginning of the third 
copy step for this copy operation and specifies INOUTE as 
the DD statement for the last data set CDATASETE) to be 
copied. Only member MT is copied, because the other members 
already exist on the output data set. Because the INDD 
statement is not followed by an EXCLUDE or SELECT statement, 
a full copy is performed. 


The temporary spill data sets may or may not be opened, 
depending on the amount of virtual storage available; therefore, 
it is suggested that the SYSUT3 and SYSUT4¢ DD statements always 
appear in the job stream. 


The output data set 1S compressed in place first to save space 
because it is known that it contains embedded, unused space. 


ITEBCOPY EXAMPLE 1l2 


In this example, members are selected, excluded, and copied from 
input partitioned data sets to an output partitioned data set. 
This example is designed to illustrate multiple copy operations. 
Figure 34 on page 88% shows the input and output data sets before 
and after processing. 


The example follows. 
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First copy operation 








Input 
DATASETE DATASETC 
Directory Directory 
MA MJ MK MF ML MM MN 
Output 
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Before copy After processing After processing 
operation DATASETE DATASETC 


Figure 34 (Part 1 of 3). Multiple Copy Operations/Copy Steps within a Job Step 
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Second copy operation 






















Input 
DATASETD DATASETC DATASETB 
Directory 
Directory Directory MA MF MJ ML 
MM MP MF ML MM MN MM MN MP 
Member 
7 MA 5 
Output Copy replacing 
DATASETB member MM 
Directory Directory 
Directory Directory MA MF MJ ML MA MF MJ ML 
MA MJ MA MJ MM MP MM MN MP MM MN wp 








Member | 
MA 





Before copy After processing After compressing After compressing 
operation DATASETD DATASETC in place 





Figure 34 (Part 2 of 3). Multiple Copy Operations/Copy Steps within a Job Step 
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Third copy operation . —_ 
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| DATASETB 
i Directory 
MA MF MJ ML 
| MM MN MP 
Output Copy replacing 
member MM 
DATASETD 








Directory 
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Old 
member 
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Before copy 
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Figure 34 (Part 3 of 3). Multiple Copy Operations/Copy Steps within a Job Step 
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//COPY 
//SOBSTEP 
S/SYSPRIN 
//TNOUTA 


// 
//TNOUTB 
// 
//INOUTC 
// 
//INOUTD 


// 
//INOUTE 
// 


S/SYSUT3 
S/SYSUT4 
4/SYSIN 


JOB 


EXEC PGM=IEBCOPY 


T DD 
DD 


DD 
DD 
DD 
DD 
DD 
DD 


DD 
COPY 


SELECT 
EXCLUDE 


COPY 
COPY 


SELECT 


SYSOUT=A 
DSNAME=DATASETA, UNIT=disk, VOL=SER=111113, 
DISP=OLD 

DSNAME=DATASETB, VOL=SER=111115,UNIT=disk, 
DISP=COLD,KEEP) 

DSNAME=DATASETC, VOL=SER=111114, UNIT=disk, 
DISP=COLD,KEEP) 

DSNAME=DATASETD, VOL=SER=111116,DISP=OLD, 
UNIT=disk 

DSNAME=DATASETE, VOL=SER=111117,DISP=OLD, 
UNIT=disk 

UNIT=SYSDA,SPACE=CTRK, €1)) 

UNIT=SYSDA, SPACE=CTRK, €1)) 

% 

OUTDD=INOUTA 

INDD=INOUTE 

MEMBER=C(MA,MJ) 

INDD=INOUTC 

MEMBER=(MM, MN) 

O=INOUTB, INDD=INOUTD 

I=CCINOUTC,R), INOUTB) 

O=INOUTD, T=CCINOUTB,R)) 

MEMBER=MM 





The control statements are discussed below: 


INOUTA DD defines a partitioned data set (DATASETA). This 
data set contains three members (MA, MB, and MD) and resides 
on a disk volume. 


INOUTB DD defines a partitioned data set (DATASETB). This 
data set resides on a disk volume and contains two members 
CMA and MJ). 


INOUTC DD defines a partitioned data set (CDATASETC), that 
resides ona disk volume. This data set contains four 
members CMF, 


ML, MM, and MN). 


INOUTD DD defines a partitioned data set CDATASETD). This 
data set resides on a disk volume and contains two members 
CMM and MP). 


INOUTE DD defines a partitioned data set (CDATASETE), that 
resides ona disk volume. This data set contains three 
members (MA, 


MJ and MK). 


SYSUT3 DD defines a temporary spill data set. One track is 
allocated on a disk volume. 


SYSUT4 DD defines a temporary spill data set. One track is 
allocated on a disk volume. 


SYSIN DD defines the control data set, which follows in the 


input stream. 


The data set contains three COPY statements, 


two SELECT statements, one EXCLUDE statement, and several 
INDD statements. 


The first COPY statement indicates the start of a copy 


operati 


on. 


The QUTDD operand specifies INOUTA as the DD 


statement for the output data set (DATASETA). 
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The first INDD statement specifies INOUTE as the DD | , 
statement for the first input data set CDATASETE) to be eo 
processed. Processing occurs, as follows: 


1. Member MA is searched for and found, but is not copied 
because the replace option is not specified. 


2. Member MJ is searched for, found, and copied to the 
output data set. Members are not searched for again 
after they are found. 


SELECT specifies the members (MA and MJ) to be selected from 
the input data set (DATASETE) to be copied. 


The second INDD statement marks the end of the first copy 
step and the beginning of the second copy step within the 
first copy operation. It specifies INOUTC as the DD 
statement for the second input data set (DATASETC) to be 
processed. Members MF and ML, which are not named on the 
EXCLUDE statement, are copied because neither exists on the 
output data set. EXCLUDE specifies the members (MM and MN) 
to be excluded from the second copy operation. 


e The second COPY statement indicates the start of another 
copy operation. The absence of a SELECT or EXCLUDE 
statement causes a default to a full copy. The O COUTDD) 
parameter specifies INOUTB as the output data set 
CDATASETB). The INDD parameter specifies INOUTD as the 
first input data set CDATASETD) to be processed. Members MP 
and MM are copied to the output data set. 


INDD(CI) specifies INOUTC as the DD statement for the second 

input data set (DATASETC) and INOUTB as the DD statement for 

the third input data set (DATASETB) to be processed. 

Members MF, ML, MM, and MN are copied from DATASETC. Member 

MM is copied, although it already exists on the output aN 
partitioned data sets, because the replace option is ; 
specified. (The pointer in the output data set directory is ™“.-- 
changed to point to the new (copied) member MM; thus the 

space occupied by the replaced member MM is embedded, unused 
space.) Because DATASETB is also the data set specified in 

the OUTDD parameter, a compress-in-place takes place, and 

thus the embedded, unused space 1S removed. 


° The third COPY statement indicates the start of another copy 
operation. The O COUTDD) parameter specifies INOUTD as the 
DD statement for the output data set (DATASETD). The I 
CINDD) parameter specifies INOUTB as the DD statement for 
the input data set (DATASETB). 


SELECT specifies the member (MM) to be selected from the 
input partitioned data set (DATASETB) to be copied. The 
replace option is specified on the data set level. 


The temporary spill data sets may or may not be opened, 
depending on the amount of virtual storage available; therefore, 
hs Gees and SYSUT4 DD statements should always appear in the 
job stream. 
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IEBCOPY EXAMPLE 13 


In this example, a partitioned data set (CSYS].LINKLIB) is 
unloaded to a tape volume. 


7/UNLOAD JOB... 

S/STEPI EXEC PGM=IEBCOPY, PARM="SIZE=100K' 

//SYSPRINT DD SYSOQUT=A 

S/INPDS DD DSNAME=SYS1.LINKLIB,UNIT=disk, DISP=SHR, 
// VOL=SER=666666 

//OUTTAPE DD DSNAME=LINKLIB,UNIT=tape, VOL=SER=TAPEOO, 
// 


LABEL=(€,5L),DISP=CNEW, KEEP) 
S/SYSUTS DD DSNAME=TEMP1,UNIT=disk, VOL=SER=111111, 
// DISP=CNEW, DELETE), SPACE=(€80,(60,45)) 
7/SYSIN P AY ¥ 
0 


OUTDD=OUTTAPE 
INDD=INPDS 
1% 





The control statements are discussed below: 


® EXEC specifies the execution of IJEBCOPY. The PARM parameter 
specifies the size of the input/output buffer to be used 
C100K). 


@ INPDS DD defines a partitioned data set (SYSI].LINKLIB), 
which resides on a disk volume. This data set 1S assumed to 
have 700 members; the number of members is used to calculate 
the space allocation for SYSUT3. 


@ OUTTAPE DD defines a sequential data set to which 
SYSI1.LINKLIB is to be unloaded. The unloaded data set is 
named LINKLIB. If a tape volume is used, it can be IBM 
standard labeled or unlabeled. 


6 SYSUT3 DD defines a temporary spill data set ona disk 
volume. This data set is used if there is not enough space 
in virtual storage for the input partitioned data set's 
directory entries. This data set may or may not be opened, 
depending on the amount of virtual storage available; 
therefore, it is suggested that the statement always appear 
in the job stream. 


@ SYSIN DD defines the control data set, which follows in the 
input stream. The data set contains a COPY and INDD 
statement. 


@ COPY indicates the start of an unload operation because the 
OUTDD parameter refers to OUTTAPE DD, which specifies a 
sequential otitput data set. Because no EXCLUDE or SELECT 
statement is specified, the entire data set is unloaded. 


e INDD refers to INPDS DD, which defines the input partitioned 
data set to be unloaded. Note that, for an unload 
operation, only one INDD data set may be specified for each 
OUTDD data set. 


The SYSUT4 data set is never used for an unload operation. The 
SYSUT3 data set for an unload operation is used under the same 
conditions as it is used for a copy operation. 


If too much space is allocated with the SIZE option of the PARM 


parameter on the EXEC statement, the paging process slows down 
because the buffer areas are fixed. 
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IEBCOPY EXAMPLE 15 


In this example, a sequential data set created by an IEBCOPY 
unload operation is loaded. 


17 
“/ 
17 
“7 


17 
“/ 


i 
47 
“7 


7% 





LOAD JOB... 

STEPA EXEC PGM=IEBCOPY,PARM='SIZE=65536! 

SYSPRINT DD SYSOUT=A 

SEQIN DD DSNAME=UNLOADSET,UNIT=tape,LABEL=(€,SL), 
VOL=SER=TAPEO1,DISP=OLD 

INOUTS DD DSNAME= DATASETS, UNIT=disk, VOL=SER=2222222, 
DISP=CNEW, KEEP), SPACE=(CYL,(€10,5,10)) 

SYSUTS DD DSN=TEMP1,UNIT=disk,VOL=SER=111111, 
DISP=CNEW, DELETE), SPACE=(80,(€15,1)) 

SYSIN DD 


X 
COPY OUTDD=INOUT4, INDD=SEQIN 


The control statements are discussed below: 


EXEC specifies the execution of IEBCOPY. The PARM parameter 
allocates 2 tracks on a disk volume. If less space is 
specified, 2 tracks are allocated because this is the 
minimum required by IEBCOPY when the unloaded data set's 
block size does not exceed the track capacity. 


SEQIN DD defines a sequential data set that was previously 
unloaded by IEBCOPY. The data set contains 28 members in 
sequential organization. 


INOUT4 DD defines a partitioned data set ona disk volume. 
This data set is to be kept after the load operation. Ten 
cylinders are allocated for the data set; ten blocks are 
allocated for directory entries. 


SYSUT3 DD defines a temporary spill data set ona disk 
volume. This data set is used if there is not enough space 
in main storage for the input data set's directory entries. 
This data set may or may not be opened, depending on the 
amount of main storage available; therefore, it is suggested 
that the statement always appear in the job stream. The 
space allocated for this data set is based on the number of 
members in the input data set Cin this case, 28). 


SYSIN DD defines the control data set, which follows in the 
input stream. The data set contains a COPY statement. 


COPY indicates the start of a load operation because the 
INDD parameter refers to SEQIN DD, which defines a 
sequential data set, and OUTDD refers to INOUTG DD, which 
defines a direct access volume. 


Because the output data set in this example is new, the SYSUTS 
data set is not needed. SYSUTG should be specified, however, 
when the output data set is old 


In this example, members are selected, excluded, unloaded, 
loaded, and copied. Processing will occur, as follows: (1) 
unload, excluding members, (2) unload, selecting members, and 
(3) load and copy to merge members. 
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( : //COPY SOB). ac 
7 //STEP EXEC PGM=IEBCOPY 
//SYSPRINT DD SYSOUT=A 
DD DSNAME=ACCOUNTA, UNIT=3380,VOL=SER=333333, 
DISP=OLD 
DD DSNAME=ACCOUNTB, UNIT=3380,VOL=SER=333333, 
DISP=OLD 
DD DSNAME=SAVAC, UNIT=3380, VOL=SER=333333, 
DISP=(NEW, KEEP) » SPACE=(CYL,> (5,2)) 
DD DSNAME=SAVACB,UNIT=tape, VOL=SER=TO01911, 
DISP=(NEW, KEEP), LABEL=(,SL) 
DD DSNAME=NEWACC, UNIT=tape, VOL=SER=T01219, 
DISP=OLD, LABEL=(,SL) 
//MERGE DD DSNAME=ACCUPDAT, UNIT=3380, VOL=SER=222222, 
Y/ DISP=OLD | 
//SYSUT3. DD DSNAME=TEMP1, VOL=SER=666666,UNIT=3380, 
/ DISP=CNEW, DELETE) » SPACE=(80,(1;)1)) 
//SYSUTG DD DSNAME=TEMP2, VOL=SER=666666,UNIT=3380, 
Y/ DISP=(NEW, DELETE), 
Y/ SPACE=(256,(1,1)),DCB=(KEYLEN=8) 
//SYSIN DD x 
COPY OUTDD=SEQ1, INDD=PDS1 
EXCLUDE MEMBER=(D,C) 
COPY OUTDD=SEQ2, INDD=PDS2 
SELECT MEMBER=C(A,K) 
COPY OUTDD=MERGE, INDD=( CNEWUP,R),PDS1,PDS2) 
EXCLUDE MEMBER=A 





The control statements are discussed below: 


( ¢ PDS1 DD defines a partitioned data set called ACCOUNTA that 
contains six members CA, B, C, D, E, and F) and resides ona 
3380 volume. 


° PDS2 DD defines a partitioned data set called ACCOUNTB that 
eee three members CA, K, and L) and resides ona 3380 
volume. 


® SEQ] DD defines a new sequential data set called SAVAC on a 
3380 volume. 


° SEQ2 DD defines a new sequential data set called SAVACB on a 
tape volume. The tape has IBM standard labels. 


e NEWUP DD defines an old sequential data set called NEWACC 
that 1s the unloaded form of a partitioned data set that 
contains eight members CA, B, C, D, M, N, O, and P). It 
resides ona tape volume. 


e MERGE DD defines a partitioned data set called ACCUPDAT that 
contains six members (A, B, C, D, Q@, and RJ and resides on a 
3380 volume. 


e SYSUT3 DD defines a temporary spill data set on a 3380 
volume. 


e SYSUTS DD defines a temporary spill data set ona 3380 
volume. 


® SYSIN DD defines the control data set, which follows in the 
input stream. 


° The first COPY statement indicates the start of the first 
unload operation. (The input data set is partitioned; the 
output data set is sequential.) 
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e The first EXCLUDE statement specifies that members D and C 
are to be excluded from the unload operation specified by fo 
the preceding COPY statement. La 


e The second COPY statement indicates the start of the second 
unload operation. (The input data set 1s partitioned; the 
output data set is sequential.) 


@ The SELECT statement specifies that members A and K are to 
be included in the unload operation specified by the 
preceding COPY statement. 


e The third COPY statement indicates the start of the copy and 
load operations. The replace option is specified for the 
NEWUP data set; therefore, members in this data set replace 
identically named members on the output data set. The first 
INDD data set 1s an unloaded data set that is to be loaded. 
The second and third INDD data sets are partitioned data 
sets that are to be copied. (The input data sets are 
sequential and partitioned; the output data set is 
partitioned. ) 


e The second EXCLUDE statement specifies that member A is 
excluded from the copy and load operation specified in the 
preceding COPY statement. 


IEBCOPY EXAMPLE 16 


In this example, all members of data set MODLIBJ, members MODX, 
MODY, and MODZ of data set MODLIBK, and all members of data set 
MODLIBL except MYMACRO and MYJCL are altered in place. 


//ALTERONE JOB... oa 
//STEPA EXEC PGM=IEBCOPY -_ 
//SYSPRINT DD SYSOUT=A Ree 
//SYSUT3 DD UNIT=SYSDA,SPACE=(TRK, (5,1)) 

//SYSUTG DD UNIT=SYSDA,SPACE=(TRK,(€5,1)) 

//LIBSJ DD DSNAME=MODLIBJ,DISP=COLD,KEEP) 

//LIBK DD DSNAME=MODLIBK, DISP=(OLD,KEEP) 


//LIBL DD DSNAME=MODLIBL, DISP=COLD,KEEP) 
“/SYSIN DD xX 
ALTERMOD OUTDD=LIBJ 
ALTERMOD OUTDD=LIBK,LIST=NO 
SELECT MEMBER=CMODX,MODY,MODZ) 
ALTERMOD OUTDD=LIBL 
EXCLUDE MEMBER=CMYMACRO,MYJCL ) 





The control statements are discussed below. 


e LIBJ DD defines the partitioned data set MODLIBJ, which has 
been previously created and cataloged. 


e LIBK DD defines the partitioned data set MODLIBK, which has 
been previously created and cataloged. 4 


6 LIBL DD defines the partitioned data set MODLIBL, which has 
been previously created and cataloged. 


@ SYSIN DD defines the control data set, which follows in the 
input stream. 


q * 
= For data sets that have not been previously cataloged, you a 
ah ele specify UNIT and VOL=SER information on the DD 
statement. 
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IEBCOPY EXAMPLE 17 


e The first ALTERMOD statement specifies that the entire data 
set defined in LIBJ is to be altered in place. 


° The second ALTERMOD statement plus the following SELECT 
statement indicates that members MODX, MODY, and MODZ are to 
be altered in place. The remainder of MODLIBK is unchanged. 


e The third ALTERMOD statement plus the following EXCLUDE 
statement indicates that all of MODLIBL is to be altered in 
place except the members called MYMACRO and MYJCL. These 
members remain unchanged. 


In this example, members MOD7, MOD&8, and MODI of data set 
MODLIBL are copied to data set MODLIBM, altered, and reblocked 
to the default size. All members of data set MODLIBN except 
NEWMACRO and NEWJCL are copied to data set MODLIBP, altered, and 
reblocked to 10K bytes; blocks as small as 2K bytes may be 
written to improve utilization of disk space. 


//COPYRBLK JOB... 
S/STEPA EXEC PGM=IEBCOPY 
7/SYSPRINT DD SYSOUT=A 
S/SYSUT3 DD UNIT=SYSDA,SPACE=C(TRK,(5,1)) 
“/SYSUT4 DD UNIT=SYSDA,SPACE=C(TRK, (€5,1)) 
“/LIBL DD DSNAME=MODLIBL, DISP=COLD, KEEP) 
//LIBM DD DSNAME=MODLIBM, DISP=COLD, KEEP) 
“/LIBN DD DSNAME=MODLIBN, DISP=COLD, KEEP) 
//LIBP DD DSNAME=MODLIBP, DISP=COLD, KEEP) 
//SYSIN DD xX 

COPYMOD INDD=LIBL,OUTDD=LIBM 

SELECT MEMBER=C(MOD7 ,MOD8,MOD9) 

COPYMOD INDD=LIBN,OUTDD=LIBP,MAXBLK=I10K, 

MINBLK=2K,LIST=NO 
EXCLUDE MEMBER=CNEWMACRO, NEWJCL )D 





The control statements are discussed below. 


e LIBL DD defines the partitioned data set MODLIBL, which has 


been previously created and cataloged. #4 


° LIBM DD defines the partitioned data set MODLIBM, which has 
been previously created and cataloged. 4 


® LIBN DD defines the partitioned data set MODLIBN, which has 
been previously created and cataloged. #4 


e LIBP DD defines the partitioned data set MODLIBP, which has 
been previously created and cataloged. #? 


e SYSIN DD defines the control data set, which follows in the 
input stream. 


@ The COPYMOD statement indicates that the members listed in 
the following SELECT statement (MOD7,MOD8,MOD9) are to be 
copied from MODLIBL to MODLIBM, altered, and reblocked. 


e The second COPYMOD statement indicates that the MODLIBN data 
set Cexcept for NEWMACRO and NEWJCL, which are specified in 


3 For data sets that have not been previously cataloged, you 
must also specify UNIT and VOL=SER information on the DD 
statement. 
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IEBCOPY EXAMPLE 18 


the following EXCLUDE statement) is copied to MODLIBP, 


altered, 


and reblocked to 10K bytes. 


In this example, all members of data set MODLIBY are copied to 


tape COPYLIBY in STEPI1. 
uncataloged) in STEP2. 
data set MODLIBY, 


MODLIBY is scratched Cbut not 
In STEP3, all members are copied back to 
reblocked to the default size, and altered. 


The net result is that the data =o" MODLIBY is compressed, 
altered, and reblocked. 


//COPYTWO 
//STEPL 
//SYSPRINT 
//SYSUT3 
S/ASYSUTS 
//LIBY 


17 
//TAPEA 
17 

S/SYSIN 


/* 
//STEP2 
//SYSPRINT 
//LIBY 


// 
A“ SYSIN 
SCRATCH DSNAME=MODLIBY,VOL=3380=338001 


/* 
S/7STEP3 
Z/SYSPRINT 
//SYSUT3 
//SYSUT4 
S/LIBY 

// 

// 

//TAPEA 

// 

S7SYSIN 


7% 


JOB... 

EXEC PGM=IEBCOPY 

DD SYSOQUT=A 

DD UNIT=SYSDA,SPACE=(TRK, (5, 

DD UNIT=SYSDA,SPACE=CTRK, (5, 

DD DSNAME=MODL IBY, DISP=(OLD) 
UNIT=3380,VOL=SER=338001 

DD DSNAME=COPYLIBY, DISP=CNEW, PASS) 


- ee tape, VOL=SER=717000,LABEL= 
COPY INDD= LIBY, OUTDD=TAPEA 


EXEC PGM=IEHPROGM, COND=(0,NE,STEP1) 
DD SYSOUT=A 
DD DSNAME=MODLIBY,DISP=COLD), 
. UNIT=3380,VOL=SER=338001 
D X 


EXEC PGM=IEBCOPY,COND=(0,NE,STEP1) 

DD SYSOUT=A 

DD UNIT=SYSDA,SPACE=C(TRK,(5,1)) 

DD UNIT=SYSDA,SPACE=C(TRK, (5,1)) 

DD DSNAME=MODLIBY,DISP=CNEW, KEEP), 
UNIT=3380,VOL=SER=338001, 
SPACE=CTRK, €2,1,5) 

DD DSNAME=COPYLIBY, DISP=COLD, KEEP) 


- UNIT=tape, VOL=SER=717000,LABEL= 
x 
COPYMOD INDD=TAPEA, OUTDD=LIBY 


The control statements are discussed below. 
STEP1 marks the beginning of the IEBCOPY job step. 


LIBY DD defines the partitioned data set MODLIBY, which has 
also been previously defined. 


TAPEA DD defines the tape data set COPYLIBY. 


The COPY statement makes a backup copy of MODLIBY and places 
it in the data set COPYLIBY. 


STEP2 marks the beginning of the IEHPROGM job step. If 
STEP] fails, STEP2 will not be executed. 


The SCRATCH statement scratches the old data set MODLIBY but 
does not remove it from the catalog. 


STEP3 marks the beginning of the second JEBCOPY job step. 


STEP3 wi 


ll not be executed if STEP] fails. 


, 


C; 


, 


C,; 





NL) 


NL) 


The COPYMOD statement copies all members back to MODLIBY, 
alters their RLD counts, and reblocks them. 


will be 
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compressed, but will not necessarily occupy the same 
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space on the disk as it did before being scratched and 
reallocated. 
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IEBDG PROGRAM 


IEBDG is a data set utility used to provide a pattern of test 
data to be used as a programming debugging aid. 


An output data set, containing records of any format, can be 
created through the use of utility control statements, with or 
without input data. An optional user exit passes control to a 
user routine to monitor each output record before it 1s written. 
Sequential, ISAM, and partitioned data sets can be used for 
input or output. 





You can code utility control statements to generate a pattern of 
| data that can be analyzed quickly for predictable results. 


When you define the contents of a field, the following must be 
decided: 


@ Which type of pattern CIBM-supplied or user-supplied) is to 
be placed initially in the defined field. 


e What action, if any, is to be performed to alter the 
contents of the field after it is selected for each output 
record. 


TYPES OF PATTERNS 


_ IBM~SUPPLIED PATTERNS 
IBM supplies seven patterns: 


e Alphameric 


e Alphabetic 


e Zoned decimal 
@ Packed decimal 
6 Binary number 


® Collating sequence 

e Random number 

You may choose one of them when defining the contents of a 

field. All patterns, except the binary and random number 

patterns, repeat ina given field, provided that the defined 

field length is sufficient to permit repetition. For example, 

the alphabetic pattern is: | 
ABCDEFGHIJKLMNOPQRSTUVWXYZABCDEFG... 


Figure 35 on page 101 shows the IBM-~supplied patterns. 
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Packed Decimal 


Binary Number 
(Negative pattern) 


Collating Sequence G0...F9 


Random Number Random hexadecimal digits Not applicable 


IBM-Supplied Test Date Patterns 

















Hexadecimal Printable Characters 
Cl C2...69, F0...F9 


0000...001C Not applicable 
(Positive pattern) 
0000...001D 

(Negative pattern) 


00000001, 




























etc. 
(Positive pattern) 









Not applicable 





FFFFFFFF, etc. 









b¢.<C+]&!$%);7-7,%_>7:8=" 
Ave L Views D 






A packed decimal or binary number is right-aligned in the 
defined field. 


You can specify a starting character when defining an 
alphameric, alphabetic, or collating-sequence field. For 
example, a 10-byte alphabetic field for which "H" is specified 
as the starting character would appear as: 


HIJKLMNOPQ 


The same l10-byte alphabetic field with no specified starting 
character would appear as: 


ABCDEFGHIJ 
You can specify a mathematical sign when defining a packed 


decimal or binary field. If no sign is specified, the field is 
assumed to be positive. 


USER-SPECIFIED PICTURES 


Instead of selecting an IBM-supplied pattern, you may want to 
specify a picture to be placed in the defined field. You can 
provide: 


® An EBCDIC character string 
@ A decimal number to be converted to packed decimal by IEBDG 
e A decimal number to be converted to binary by IEBDG 


When you supply a picture, a picture length must be specified 
that is equal to or less than the specified field length. An 
EBCDIC picture is left-aligned ina defined field; a decimal 
number that is converted to packed decimal or to binary 1s 
right-aligned ina defined field. 


You can initially load (fill) a defined field with either an 
EBCDIC character or a hexadecimal digit. For example, the 


10-byte picture "BADCFEHGJI™ is to be placed ina l]5-byte field. 


An EBCDIC "2" is to be used to pad the field. The result is 
BADCFEHGJI22222. (CIf no fill character is provided, the 
remaining bytes contain binary zeros.) Remember that the fill 
character, if specified, is written in each byte of the defined 
field prior to the inclusion of an IBM-supplied pattern or 
user-supplied picture. 


IEBDG Program 101 








MODIFICATION OF SELECTED FIELDS 
IEBDG can be used to change the contents of a field ina 
specified manner. One of the following actions can be selected 
to change a field after its inclusion in each applicable output 
record: 
e Ripple 
e Shift left 
@ Shift right 
@ Truncate left 


e Truncate right 


e Fixed 
e Roll 
® Wave 


Figure 36 shows the effects of each of the actions on a 6-byte 
alphabetic field. Note that the roll and wave actions are 

applicable only when a user pattern is supplied. In addition, 
the result of a ripple action depends on which type of pattern 





CIBM-supplied or user-~supplied) is present. 





Ripple—user- 
supplied picture 














Truncate left 


Figure 36. 















If no action is selected, 
compatible with the format, 


IEBDG. 
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Ripple—IBM- 
supplied format 










ABCDEF 


GHIJKL 
HI JKLM 


Truncate right 














Shift left 
ABCDEF 
BCDEF 
CDEF 
DEF 


ABCDEF 


Fixed 
ABCDEF 
ABCDEF 
ABCDEF 
ABCDEF 


ABCDEF 
ABCDEF 
ABCDEF 
ABCDEF 
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Shift right 


ABCDEF 
ABCDE 
ABCD 
















ABCDEF 


Roll—user- 
supplied picture 


Wave—user- 
supplied picture 





or if the specified action is not 
the fixed action is assumed by 











RETURN CODES 


CONTRO 


IEBDG uses the following input: 


e An input data set that contains records to be used in the 
construction of an output data set or partitioned data set 
member. The input data sets are optional; that is, output 
records can be created entirely from utility control 
statements. 


e A control data set that contains any number of sets of 
utility control statements. 


IEBDG produces the following output: 


e An output data set that is the result of the IEBDG 
operation. One output data set is created by each set of 
utility control statements included in the job step. 


@ A message data set that contains informational messages, the 
contents of applicable utility control statements, and any 
error messages. 


Input and output data sets may be sequential, indexed sequential 
CISAM), or partitioned data set members. BDAM and VSAM are not 
supported. 


IEBDG returns a code in register 15 to indicate the results of 
program execution. The return codes and their meanings are 
listed in Figure 37. 


Codes Meaning 
00 (00 hex) Successful completion. 


04 (04) A user routine returned a code of 16 to IEBDG. The 
job step is terminated at the user's request. 


08 (08) An error occurred while processing a set of utility 
control statements. No data is generated following 
the error. Processing continues normally with the 
next set of utility control statements, if any. 


l2 (0C) An error occurred while processing an input or 
output data set. The job step is terminated. 


16 (10) An error occurred from which recovery is not 
possible. The job step is terminated. 


Figure 37. IEBDG Return Codes 


IEBDG is controlled by job control statements and utility 
control statements. The job control statements are used to 
execute or invoke IEBDG and define the data sets used and 
produced by IEBDG. Utility control statements are used to 
control the functions of the program and to define the contents 
of the output records. 
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JOB CONTROL STATEMENTS 


Figure 38 shows the job control statements for IEBDG. (3 


Ne 


Both input and output data sets can contain fixed, variable, or me 
undefined records. 


Statement 
JOB 
EXEC 


SYSPRINT DD 


SYSIN DD 


seqinset DD 


parinset DD 


seqout DD 


parout DD 


Figure 38. 


Use 
Initiates the job. 


Specifies the program name (PGM= IEBDG) or, if the 
job control statements reside in a procedure 
library, the procedure name. Additional 
information can be specified; see “PARM Information 
on the EXEC Statement™ on page 105. 


Defines a sequential message data set. The data 
set can be written on a system output device, a 
tape volume, or a DASD volume. 


Defines the control data set, which contains the 
utility control statements and, optionally, input 
records. The data set normally resides in the 
input stream; however, it can be defined as a 
sequential data set or as a member of a partitioned 
data set. 


Defines an optional sequential or ISAM data set 
used as input to IEBDG. The data set can reside on 
a tape volume or ona DASD volume. Any number of 
these statements Ceach having a ddname different 
from all other ddnames in the job step) can be 
included in the job step. Each DD statement is 
subsequently referred to by a DSD utility control 
statement. ow 


we 


Defines an optional input partitioned data set 
member residing on a DASD volume. Any number of 
these statements Ceach having a ddname different 
from all other ddnames in the job step) can be 
included in the job step. The DD statement is 
subsequently referred to by a DSD utility control 
statement. 


Defines an output (test) sequential or ISAM data 
set. Any number of these DD statements can be 
included per job step; however, only one statement | 
is applicable per set of utility control 
statements. 


Defines an optional output partitioned data set 

member to be created and placed on a DASD volume. | 
Any number of these DD statements Ceach DD | 
statement referring to the same or to a different | 
data set) can be included per job step; however, 
only one statement is applicable per set of utility | 
control statements. | 


Job Control Statements for IEBDG 


If the input or output data set has an indexed sequential CISAM) 
organization (DSORG=IS), the DSORG subparameter must be included 
in the DCB subparameters. If members of a partitioned data set 

are used, DSORG=P0 or DSORG=PS may be coded. If the DSORG 


subparameter is not coded, DSORG=PS is assumed. 
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PARM Information on 


For an ISAM data set, the key length must be specified in the 
DCB. 


Refer to Data Administration Guide for information on estimating 


space allocations. 


the EXEC Statement 


The EXEC statement can include an optional PARM parameter to 
specify the number of lines to be printed between headings in 
the message data set, coded as follows: 


PARM=LINECT=nnnn 


The nnnn is a 4-digit decimal number that specifies the number 
of ripe C0000 to 9999) to be printed per page of output 
listing. 


If PARM is omitted, 58 lines are printed between headings 
Cunless a channel 12 punch is encountered in the carriage 
control tape, in which case a skip to channel 1 is performed and 
a heading 1s printed). 


If IEBDG is invoked, the line-count option can be passed ina 
parameter list that is referred to by a subparameter of the LINK 


or ATTACH macro instruction. In addition, a page count can be 
passed ina 6-byte parameter list that is referred to by a 
subparameter of the LINK or ATTACH macro instruction. For a 


discussion of linkage conventions, refer to "Invoking Utility 
Programs from a Problem Program" on page 12. 


SYSPRINT DD Statement 


SYSIN DD Statement 


If the SYSPRINT DD statement is omitted, no messages are 
written. The block size for the SYSPRINT data set must be a 
multiple of 121. Any blocking factor can be specified. 


The block size for the SYSIN data set must be a multiple of 80. 
Any blocking factor can be specified. 


seqinset DD Statement 


The "seqinset™ DD statement can be entered: 


//seqinset DD DSNAME=setname, UNIT=xxxx, DISP=COLD,KEEP), 


/7 VOLUME=SER=xxxxxx, LABEL=(€...,...), 
// DCB=Capplicable subparameters) 





The LABEL parameter is included only for a magnetic tape volume. 
If the input data set has an indexed sequential organization, 
DSORG=IS should be coded in the DCB parameter. 
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parinset DD Statement 


The "parinset"™ DD statement can be entered: fo™. 


ie 


//parinset DD DSNAME=setnameCmembername) , UNIT=xxxx, 
// DISP=COLD,KEEP), VOLUME=SER=xxxxxx >» 


// DCB=Capplicable subparameters) 





seqout DD Statement 


The "seqout™ DD statement can be entered: 





//segout DD DSNAME=setname, UNIT=xxx x, 
// DISP=C,KEEP), VOLUME=SER=xxxxxx, 
// DCB=Capplicable subparameters) 





The LABEL parameter is included for magnetic tape; the SPACE 
parameter is included for DASD. 


parout DD Statement 


The "parout"™ DD statement can be entered: 


//parout DD DSNAME=setname(membername) , UNIT=xxxx, ee 
// DISP=(,KEEP), VOLUME=SER=xxxxxx, DCB=Capplicable 


Sf DCB=Capplicable subparameters), 
ff SPACE=Capplicable subparameter) 








The SPACE parameter is included on the parout DD statement when 
ih the first member to be placed ina partitioned data 
set. 


The partitioned data set defined by "parout" is a new member and 
has a new directory entry. No information 1S copied from the 
previous directory. 3 
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UTILITY CONTROL STATEMENTS 


DSD Statement 


IEBDG is controlled by the following utility control statements: 


Statement Use 
DSD Specifies the ddnames of the input and output data 
sets. One DSD statement must be included for each 


set of utility control statements. 


FD Defines the contents and lengths of fields to be 
used in creating output records. 

CREATE Defines the contents of output records. 

REPEAT Specifies the number of times a CREATE statement or 


a group of CREATE statements are to be used in 
generating output records. 


END Marks the end of a set of IEBDG utility control 
statements. 


Figure 39. IEBDG Utility Control Statements 


Any number of sets of control statements can appear ina single 
job step. Each set defines one data set. 


General continuation requirements for utility control statements 
are described in "Continuing Utility Control Statements" on 
page 5 


FD or CREATE utility control statements that contain a PICTURE 
parameter and are to be continued must have a nonblank character 
in column 72. The continuation must begin in column 4 on the 
next statement. 


The DSD statement marks the beginning of a set of utility 
control statements and specifies the data sets that IEBDG is to 
use as input. The DSD statement can be used to specify one 
output data set and any number of input data sets for each 
application of IEBDG. 


The format of the DSD statement is: 


OUTPUT=(ddname ) 





[> INPUT=(ddname,» eee )] 


The ddname SYSIN must nat be coded in the INPUT parameter. 


Each parameter should appear no more than once on any DSD 
statement. 
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FD Statement 


The FD statement defines the contents and length of a field that ¢ 
will be used subsequently by a CREATE statement Cor statements) in sy 
to form output records. A defined field within the input Me™ 
logical record may be selected for use in the output records if 


it is referred to, by name, by a subsequent CREATE statement. 
Figure 40 shows how fields defined in FD statements are placed 


in buffer areas so that subsequent CREATE statements can assign 
selected fields to specific output records. 


FD Statements—define fields 











Defines field 5 
Defines field 4 
Defines field 3 
Defines field 2 


Defines field 1 





Contents are placed in buffers | =i 
so that subsequent CREATE Field 1 Field 2 Field 3 Field 4 Field5 | 
statements can selectively 
create output records. | 
CREATE Statement— 
creates output 
record from 
selected fields 
Output record 
Field 1 Field 4 
Figure 40. Defining and Selecting Fields for Output Records 
Using IEBDG 
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Figure 41 shows how the FD statement is used to specify a field 
in an input record to be used in output records. The left-hand 
side of the figure shows that a field in the input record 
beginning at byte 50 1s selected for use in the output record. 
The right-hand side of the figure shows that the field is to be 
placed at byte 20 in the output record. 













Output record 
1 20 


Input record 


1 80 








80 






LENGTH 
Same as input field 


Figure G41. Field Selected from the Input Record for Use in the 
Output Record 


The format of the FD statement is: 


NAME=name 
» LENGTH=Length-in-bytes 
[,STARTLOC=starting-byte-location] 
[,FILL={"character' |X'2-hex-digits'}] 
( L ,FORMAT=pattern[ »CHARACTER=character] | 
| »PICTURE=length>{'character-string' | 
P'decimal-number * | 
B'decimal-number'}] 
[»>SIGN=sign] 


[,ACTION=action] 


[, INDEX=numberl »,CYCLE=number1][,RANGE=number]] 


[» INPUT=ddnamel 
C,FROMLOC=number] 





Some of the FD keywords do not apply when certain patterns or 
pictures are selected by you; for example, the INDEX, CYCLE, 
RANGE, and SIGN parameters are used only with numeric fields. 
Figure 42 on page 110 shows which IEBDG keywords can be used 
with the applicable pattern or picture chosen by you. Each 
keyword should appear no more than once on any FD statement. 
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CREATE Statement 





FORMAT=AL Calphabetic) ACTION=SL (shift left) 
FORMAT=AN Calphameric) 


FORMAT=CO Ccollating seq.) 






ACTION=TL Ctruncate left) 
ACTION=TR Ctruncate right) 
ACTION=FX (fixed) 
ACTION=RP Cripple) 










FORMAT=ZD (Czoned decimal ) 
FORMAT=PD Cpacked decimal) 
FORMAT=BI Cbinary) 






















INDEX=x 
CYCLE=x 
RANGE=x 
SIGN=x? 


ACTION=SL (shift left) 
ACTION=SR (shift right) 
ACTION=TL Ctruncate left) 
ACTION=TR Ctruncate right) 
ACTION=FX (fixed) 
ACTION=RP Cripple) 
ACTION=WV Cwave) 
ACTION=RO Croll) 


PICTURE=P'n! Cpacked decimal) 
PICTURE=B'n' Cbinary) 
















PICTURE='string' CEBCDIC) 














Figure 42. Compatible IEBDG Operations 


Note to Figure 42: 


1 Zoned decimal numbers (ZD) do not include a sign. 


The CREATE statement defines the contents of a record (or 
records) to be made available to a user routine or to be written 
directly as an output record Cor records). 


The format of the CREATE statement is: 


[label]} CREATE] [CQUANTITY=number] 
[,FILL={ "character '|1X'2-hex-digits'}] 
[,»INPUT=ddnamelSYSINE (ecece))] 
[,PICTURE=lenagth,startloc{, 'character-string' | 


»P'decimal-number’ | 
»B'decimal-number'}] 
[»NAME=namel (namel,namen...) | 
(name(COPY=number,namel,namen,..J»..-J)] 
[> EXIT=routinename] 





After processing each potential output record, the user routine 
should provide a return code in register 15 to instruct IEBDG 
how to handle the output record. The user codes are listed 
below. 
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FORMAT/PICTURE Value Compatible Parameters - 


ACTION=SR (shift right) Ve 











Codes Meaning 
00 (00 hex) The record is to be written. 


0G (04) The record is not to be written. The skipped 
record is not to be counted as a generated output 
record; processing 1s to continue as though a 
record were written. If skips are requested 
through user exits and input records are supplied, 
each skip causes an additional input record to be 
processed in the generation of output records. For 
example, if a CREATE statement specifies that 10 
output records are to be generated and a user exit 
indicates that two records are to be skipped, 12 
input records are processed. 


12 (0C) The processing of the remainder of this set of 
utility control statements is to be bypassed. 
Processing is to continue with the next DSD 
statement. 


16 (10) All processing is to halt. 
Figure 43. IEBDG User Exit Return Codes 


When an exit routine is loaded and you return control to IEBDG, 
register 1 contains the address of the first byte of the output 
record. Each keyword should appear no more than once on any 
CREATE statement. 


Figure 44 shows the addition of field X to two different 
records. In record 1, field X is the first field referred to by 
the CREATE statement; therefore, field X begins in the first 
byte of the output record. In record 2, two fields, field A and 
field B, have already been referred to by a CREATE statement; 
field X, the next field referred to, begins immediately after 
field B. Field X does not have a special starting location in 
this example. , 


Record 1 
1 


Field xX ff 


Record 2 
1 41 


Field A Field B Field X 


Figure 44, Default Placement of Fields within an Output Record 
Using IEBDG 






You can also indicate that a numeric field is to be modified 

after it has been referred to n times by a CREATE statement or 

statements, that is, after n cycles, a modification is to be 

Lbesae A modification will add a user-specified number to a 
1eld. 


The CREATE statement constructs an output record by referring to 
previously defined fields by name and/or by providing a picture 


IEBDG Program 11ll 








to be placed in the record. You can generate multiple records 

with a single CREATE statement. 

When defining a picture in a CREATE statement, you must specify |. 
its length and starting location in the output record. The ed 
specified length must be equal to the number of specified EBCDIC 

or numeric characters. (When a specified decimal number 1s 

converted to packed decimal or binary, it is automatically 
right-aligned. ) 


Figure 45 shows three ways in which output records can be 
created from utility control statements. 


1. Fields only Output record 






field 


2. Fields and 
ict 
sche Output record 


3. Picture only 


Output record 


Figure 45. Creating Output Records with Utility Control 
Statements 


KR 
NS 


As an alternative to creating output records from utility 
control statements alone, you can provide input records, which 
can be modified and written as output records. Input records 
can be provided directly in the input stream, or in a separate 
data set. Only one input data set can be read for each CREATE 
statement. 


As previously mentioned, the CREATE statement is responsible for 
the construction of an output record. An output record is 
constructed in the following order: 


l. <A fill character, specified or default (binary zero), is 
initially loaded into each byte of the output record. 


2. If the INPUT operand is specified on the CREATE statement, 
and not on an FD statement, the input records are 
left-aligned in the corresponding output record. 


3. If the INPUT operand specifies a ddname in any FD statement, 
only the fields described by the FD statement(s) are placed 
in the output record. 





G. FD fields, if any, are placed in the output record in the eo 
order of the appearance of their names in the CREATE ®& oY 
statement. 
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5. A CREATE statement picture, if any, is placed in the output 
record. 


( | IEBDG provides a user exit so you can provide your own routine 
ee to analyze or further modify a newly constructed record before 
1t 1s placed in the output data set. See Appendix A, "Exit 
Routine Linkage™ on page 422 for information on linking to a 
user exit routine. 


A set of utility control statements contains one DSD statement, 
any number of FD, CREATE, and REPEAT statements, and one END 
statement when the INPUT parameter is omitted from the FD card. 


When selecting fields from an input record CFD INPUT=ddname), 
the field must be defined by an FD statement within each set of 
utility control statements. In that case, defined fields for 
field selection are not usable across sets of utility control 
statements; such an FD card may be duplicated and used in more 
than one set of utility control statements within the job step. 





REPEAT Statement 


The REPEAT statement specifies the number of times a CREATE 
statement or group of CREATE statements is to be used 
repetitively in the generation of output records. The REPEAT 
statement precedes the CREATE statements to which it applies. 


Figure 46 shows a group of five CREATE statements repeated n 
times. 


= 


CREATE (2) 
CREATE (3) 
ene == CREATE (4) 
CREATE (5) 
REPEAT 

CREATE (2, 
CREATE (3) 
CREATE (4) 
CREATE (5) 

e 

e 
CREATE (1) 
CREATE (2) 
CREATE (3) 
CREATE (4) 
CREATE (5) 


Figure G6. Repetition Caused by the REPEAT Statement Using 
IEBDG 


The format of the REPEAT statement is: 





[label] REPEAT QUANTITY=numberl,CREATE=number ] 
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END Statement 
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Parameters 


ACTION 


The END statement is used to mark the end of a set of utility 


control statements. 


Each set of control statements can pertain 


to any number of input data sets but only to a single output 


data set. 


The format of the END statement is: 


ian [eo SSSCSCSC~—CSSSSS 


Applicable 
Control 
Statements 


Description of Parameters 


ACTION=action 
specifies how the contents of a defined field 
are to be altered (if at all) after the field's 


inclusion in an output record. 


be coded: 


FX 


specifies 
field are 
inclusion 


specifies 
field are 
inclusion 


These values can 


that the contents of a defined 
to remain fixed after the field's 
in an output record. 


that the contents of a defined 
to be rolled after the field's 
in an output record. The picture 


is incremented to the left by one byte for 


each output record, 


until the first 


nonblank character of the picture 1s in 


field byte l. 


string is 
position. 


RO can be 
field. 


For RO to be effective, 


At that time, the character 
reset to its original picture 


used only for a user-defined 
the picture 


length must be less than the field length. 


specifies 
field are 
inclusion 


specifies 
field are 


that the contents of a defined 
to be rippled after the field's 
in an output record. 


that the contents of a defined 
to be shifted left after the 


field's inclusion in an output record. 


specifies 
field are 


that the contents of a defined 
to be shifted right after the 


field's inclusion in an output record. 


specifies 
field are 


that the contents of a defined 
to be truncated left after the 


field's inclusion in an output record. 


specifies 
field are 


that the contents of a defined 
to be truncated right after the 





field's inclusion in an output record. 


Utilities 





na 
ea 


L, 
\ 


Ni _ 





~\ 









Applicable 
Control 
Statements 


FD 
(continued) 












Parameters 


ACTION 
Ccontinued) 


Description of Parameters 












specifies that the contents of a defined 
field are to be waved after the field's 
inclusion in an output record. The picture 
1S incremented to the left by one byte for 
each output record, until the first 
nonblank character of the picture is in 
field byte 1. At this time, the character 
string is reset to its original picture 
position. 


















WY can be used only for a user-defined 
field. For WV to be effective, the picture 
length must be less than the field length. 


Default: FX 















See Figure 42 on page 110 for system actions 
compatible with FORMAT and PICTURE values. See 
Figure 36 on page 102 for examples of IEBDG 

ACTION patterns. 





























CREATE REPEAT CREATE=number 
specifies the number of following CREATE 
statements to be included in the group. 
Default: Only the first CREATE statement is 
repeated. 

EXIT CREATE EXIT=routinename 
specifies the name of the user routine that is 
to receive control from IEBDG before writing 
each output record. 

FILL CREATE FILL={'character' |X'2-hex-digits'} 

FD specifies a value that is to be placed in each 


byte of the output record before any other 
operation in the construction of record. These 
values can be coded: 


"character' 
specifies an EBCDIC character that is to be 
placed in each byte of the output record. 


X'2-hex-digits' 
specifies 2 hexadecimal digits (for 

example, FILL=X'GO', or FILL=X'FF') to be 
Placed in each byte of the output record. 















Default: Binary zeros are placed in the output 
record. . 
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Applicable 
Control 











Parameters 


Statements 
FORMAT 


Description of Parameters 


FORMAT=patternl »CHARACTER=character!] 
specifies an IBM-supplied pattern that is to be 
placed in the defined field. FORMAT must not be 
used when PICTURE is used. The values that can 
be coded are: 





pattern 
specifies the IBM-supplied patterns, as 
follows: 


AL 


specifies an alphabetic pattern. 


AN 










specifies an alphameric pattern. 


BI 


specifies a binary pattern. 





co 
specifies a collating sequence 


pattern. 





PD 


specifies a packed decimal pattern. 






| RA 


specifies a random binary pattern. 


















ZD 
specifies a zoned decimal pattern. 
CHARACTER=character 
specifies the starting character of a 
field. See "IBM-Supplied Patterns"™ on 
page 100 for details on starting 
characters. 


FROMLOC=number 
specifies the location of the selected field 
within the input logical record. The number 
represents the position in the input record. 
If, for example, FROMLOC=10 is coded, the 
specified field begins at the tenth byte; if 
FROMLOC=1 is coded, the specified field begins 
at the first byte. (For variable-length 
records, significant data begins on the first 
byte after the G-byte length descriptor.) 








When retrieving data sets with RECFM=F or FB, 
and RKP>0, the record consists of the key plus 
the data with embedded key. To copy the entire 
record, the output DCB=LRECL has to be input 
LRECL + KEYLEN. If only the data (which 


includes the embedded Key) is to be copied, 





the 


FROMLOC must point to start of the data, 








is, FROM 
Default: 





f 


FROMLOC 
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LOC=keylength. 


The start of the input record. 





that 





















Applicable 
Control 
Statements 


INDEX FD 





( 


| a Parameters 






















Description of Parameters 






INDEX=numberl »,CYCLE=numberJ][,RANGE=number] 
specifies a decimal number to be added to this 
field whenever a specified number of records 
have been written. INDEX is valid only with 
FORMATs ZD, PD, BI, or PICTURES P'n', B'n't. 
Additional values can be coded: 


CYCLE=number 
specifies a number of output records (to be 
written as output or made available to an 
exit routine) that are treated as a group 
by the INDEX keyword. Whenever this field 
has been used in the construction of the 
specified number of records, it 1s modified 
as specified in the INDEX parameter. For 
example, if CYCLE=3 is coded, output 
records might appear as lll 222 333 4494 
etc. This parameter can be coded only when 

INDEX is coded. 


RANGE=number 
specifies an absolute value which the 
contents of this field can never exceed. 
If an index operation attempts to exceed 
the specified absolute value, the contents 
of the field as of the previous index 
operation are used. 


Default: No indexing is performed. If CYCLE is 
omitted and INDEX is coded, a CYCLE value of 1] 

1S assumed; that is, the field is indexed after 
each inclusion ina potential output record. 


INPUT=(ddname,... } 
specifies the ddname of a DD statement defining 
a data set used as input to the program. Any 
number of data sets can be included as 
input——-that is, any number of ddnames referring 
to corresponding DD statements can be coded. 
Whenever ddnames are included on a continuation 

card, they must begin in column 4 


The ddname SYSIN must not be coded as the INPUT 
parameter on the DSD control statement. Each 

ddname should not appear more than once on any 
control statement. 


INPUT=ddname 
specifies the ddname of a DD statement defining 
a data set used as input for field selection. 
Only a portion of the record described by the FD 
statement will be placed in the output record. 
If the record format of the output data set 
indicates variable-length records, the position 
within the output record will depend upon where 

the last insert into the output record was made 

unless STARTLOC is specified. 


The ddname SYSIN must not be coded as the INPUT 
parameter on the FD control statement. Each 

ddname should not appear more than once on any 
control statement. 







































INPUT DSD 












A corresponding ddname must also be specified in 
the associated CREATE statement in order to have 
the input record(s) read. 
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Applicable — 
Control : ta. a 
Parameters Statements Description of Parameters ee” 





INPUT CREATE INPUT=ddname!SYSINEI (cccc)] 

(continued) defines an input data set whose records are to 
be used in the construction of output records. 
If INPUT is coded, QUANTITY should also be 
coded, unless the remainder of the input records 
are all to be processed by this CREATE 
statement. If INPUT is specified in an FD 
statement referenced by this CREATE statement, 
there must be a corresponding ddname specified 
in the CREATE statement in order to get the 
alates record(s) read. These values can be 
coded: 





ddname 
specifies the ddname of a DD statement 
defining an input data set. 


SYSINIcccc]l 
specifies that the SYSIN data set Cinput 
stream) contains records Cother than 
utility control statements) to be used in 
the construction of output records. If 
SYSIN is coded, the input records follow 
this CREATE statement Cunless the CREATE 
statement is in a REPEAT group, in which 
case the input records follow the last 
CREATE statement of the group). c¢ccce can 
be any combination of from 1 to 4 EBCDIC 
characters. If cece is coded, the input 
records are delimited by a record 
containing EBCDIC characters beginning in eo 
column 1 


When INPUT=SYSIN with no cece value, the 
input records are delimited from any 
additional utility control statements by a 
foaere containing $$$E in columns 1 through 





LENGTH FD LENGTH=length-in-bytes 
specifies the length in bytes of the defined 
field. For variable records, 4 bytes of length 
descriptor must be added. 


For ACTION=RP or WV, the length is limited to 
16383 bytes. For ACTION=RO, the length is 
limited to 10922 bytes. 
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| i Applicable 
: ( Control 
7 = Parameters Statements 


NAME FD 
CREATE 
OUTPUT DSD 





Description of Parameters 


NAME=name 
specifies the name of the field defined by this 
FD statement. 


NAME=namel (namel,namen...J){ (name, (COPY= 
number »namels»namen. ee ). ee ) 


specifies the name or names of previously 
defined fields to be included in the applicable 
output records. If both NAME and PICTURE are 
omitted, the fill character specified in the 
CREATE statement appears in each byte of the 
a aa output record. These values can be 
coded: 


(namel,...) 


specifies the name or names of a field or 


fields to be included in the applicable 
output record(s). Each field Cpreviously 
defined in the named FD statement) is 
included in an output record in the order 
in which its name 1s encountered in the 
CREATE statement. 


COPY=number 
indicates that all fields named in the 
inner parentheses (maximum of 20) are to be 
treated as a group and included the 
specified number of times in each output 
record produced by this CREATE statement. 
Any number of sets of inner parentheses can 
be included with NAME. Within each set of 
inner parentheses, COPY must appear before 
the name of any field. 


OUTPUT=(ddname) 
specifies the ddname of the DD statement 
defining the output data set. 
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Applicable 
Control 












Parameters Statements 
PICTURE FD 
CREATE 
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Description of Parameters 
as pacer ere eter 
Dd 





{,'character-string'| 
»P* decimal-number'|,B' decimal-number'} 


specifies the length, starting byte (CREATE 
only), and the contents of a user-supplied 


picture. For FD, PICTURE must not be used when 
FORMAT is used. If both PICTURE and NAME are 
omitted, the fill character specified in the 


CREATE statement appears in each byte of 
applicable output records. These values can be 
coded: 


length 
specifies the number of bytes that the 
picture will occupy. length must be equal 
to or less than the LENGTH parameter value 
in the FD statement. 


startloc (CREATE only) 
specifies a starting byte (within any 
applicable output record) in which the 
picture is to begin. 


'character-string' 
specifies an EBCDIC character string that 
is to be placed in the applicable 
record(s). The character string is 
left-aligned at the defined starting byte. 
A character string may be broken in column 
71, a nonblank character in column 72 1s 
required, and it must be continued in 
column 4 of the next statement. The number 
of characters within the quotation marks 
must equal the number specified in the 
length subparameter (Cfor FD statements). 


P "'decimal-number' 
specifies a decimal number that is to be 
converted to packed decimal and 
right-aligned (within the boundaries of the 
defined length and starting byte) in the 
output records or defined field. The 
number of characters within the quotation 
marks must equal the number specified in 
the length subparameter Cfor FD 
statements). 


B 'decimal-number' 
specifies a decimal number that is to be 
converted to binary and right~aligned 
(within the boundaries of the defined 
length and starting byte) in the output 
records or defined field. The number of 
characters within the quotation marks must 
equal the number specified in the le 
subparameter Cfor FD statements). 


Utilities 

















Applicable 
Control 
Parameters Statements 


QUANTITY CREATE 
| REPEAT 


- i 


FD 
: 











Description of Parameters 


QUANTITY=number 
specifies the number of records that this CREATE 
statement is to generate; the contents of each 
record are specified by the other parameters. 
If both QUANTITY and INPUT are coded, and the 
quantity specified is greater than the number of 
records in the input data set, the number of 
records created 1s equal to the number of input 
records to be processed plus the generated data 
up to the specified number. 


Default: If QUANTITY is omitted and INPUT is not 
specified, only one output record is created. 

If QUANTITY is omitted and INPUT 1s specified, 
the number of records created is equal to the 
number of records in the input data set. 


If both QUANTITY and INPUT are coded, but the 
QUANTITY is less than the number of records in 
the input data set, then only the number of 
records specified by QUANTITY are written to the 
output data set. 


QUANTITY=number 
specifies the number of times the defined group 
of CREATE statements is to be used repetitively. 
This number cannot exceed 65,535. 


SIGN=sign 
specifies a mathematical sign (+ or -), to be 
used when defining a packed decimal or binary 
field. 


Default: Positive (+). 


STARTLOC=starting-byte-location 
specifies a starting location (within all output 
records using this field) in which a field is to 
begin. For example, if the first byte of an 
output record is chosen as the starting 
location, the Keyword is coded STARTLOC=1; if 
the tenth byte is chosen, STARTLOC=10 is coded, 
etc. 


Default: The field will begin in the first 
available byte of the output record (determined 
by the order of specified field names in the 
applicable CREATE statement). For variable 
records, the starting location is the first byte 
after the length descriptor. 
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ITEBDG EXAMPLES 


The following examples illustrate some of the uses of IEBDG. | 
Figure 47 can be used as a quick-reference guide to IEBDG had 
examples. The numbers in the “Example™ column refer to examples 

that follow. 


Data Set | 
| Operation | Organization Device Comments | Example | 
Place binary zeros Sequential 9-track Blocked input and ] 
in selected fields. Tape output. 
Ripple alphabetic Sequential 2 
pattern 


Partitioned, Disk Reblocking is 
Sequential performed. Each block 
of output records 
contains ten modified 
partitioned input 
records and two input 
stream records. 
Partitioned Disk Blocked output. One 
set of utility control 
statements per member. 
Sequential Disk Output records are 
created from utility 
control statements. 


Sequential, Disk Output records are 

Indexed Tape created by augmenting 

Sequential selected input fields» 
with generated data. 


Figure G7. JEBDG Example Directory 












Blocked input and 
output. 










Create output 
records from utility 
control statements 










Modify records from 
partitioned members 
and input stream 










Create partitioned 
members for utility 
control statements 











Roll and wave 
user-supplied 
patterns 





Create indexed 
sequential data set 
using field 
selection and data 
generation 













Examples that use disk or tape in place of actual device numbers 
must be changed before use. See "DASD and Tape Device Support” 
on page 3 for valid device number notation. 


ITEBDG EXAMPLE 1 


In this example, binary zeros are placed in two fields of 100 
records copied from a sequential data set. After the operation, 
each record in the copied data set COUTSET) contains binary 
zeros in locations 20 through 29 and 50 through 59. 
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IEBDG EXAMPLE 2 


//CLEAROUT JOB 
77 


17 
// 


4/ 
17 
1/7 
Sf 
// 
// 


EXEC PGM= IEBDG 

SYSPRINT DD SYSOQUT=A 

SEQIN DD DSNAME=INSET,UNIT=tape, DISP=C(COLD,KEEP), 
DCB=CRECFM=FB,LRECL=80,BLKSIZE=800), 
LABEL=C(€,NL), 
VOLUME=SER=222222 

SEQOUT DD DSNAME=OUTSET,UNIT=tape, VOLUME=SER=222333, 
DCB=(RECFM=FB,LRECL=80,BLKSIZE=800), 
DISP=(,KEEP), 
LABEL=C€,NL) 


% 

OUTPUT=CSEQOUT), INPUT=CSEQIN)D 
NAME=FIELD1,LENGTH=10,STARTLOC=20 
NAME=FIELD2,LENGTH=10,STARTLOC=50 
QUANTITY=100, INPUT=SEQIN, NAME=CFIELDI1,FIELD2) 


SYSIN 





The control statements are discussed below: 


SEQIN DD defines a sequential input data set CINSET). The 
data set was originally written on a unlabeled tape volume. 


SEQOUT DD defines the test data set COQUTSET). The output 
records are identical to the input records, except for 
locations 20 through 29 and 50 through 59, which contain 
binary zeros at the completion of the operation. 


SYSIN DD defines the control data set, which follows in the 
input stream. 


DSD marks the beginning of a set of utility control 
statements and refers to the DD statements defining the 
input and output data sets. 


The first FD statement defines an 80-byte field of input 
data. 


The first and second FD statements create two 10-byte fields 
CFIELDI] and FIELD2) that contain binary zeros. The fields 
are to begin in the 20th and 50th bytes of each output 
record 


CREATE constructs 100 output records in which the contents 
of previously defined fields (CFIELDI1, FIELD2) are placed in 
their respective starting locations in each of the output 
records. Input records from data set INSET are used as the 
basis of the output records. 


END signals the end of a set of utility control statements. 


In this example, a 10-byte alphabetic pattern is rippled. At 
the end of the job step the first output record contains 
"ABCDEFGHIJ," followed by data in location 11 through 80 from 
the input record; the second record contains "BCDEFGHIJK" 
followed by data in locations 11 through 80, etc. 
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TEBDG EXAMPLE 3 


//RIPPLE JOB. atin 
7 EXEC PGM=IEBDG 
//SYSPRINT DD SYSOUT=A 
//SEQIN DD DSNAME=INSET,DISP=COLD,KEEP),VOL=SER=222222, 
11 DCB=CRECFM=FB,LRECL=80, BLKSIZE=800), 
17 UNIT=tape 
//SEQOUT DD DSNAME=OUTSET,UNIT=disk, VOLUME=SER=111111, 
/f DCB=CRECFM=FB,LRECL=80,BLKSIZE=800), 
/f DISP=C(,KEEP), 
/f SPACE=CTRK, (€10,10)) 
S/7SYSIN ¥ 
DSD OUTPUT=CSEQOUT), INPUT=CSEQIN)D 
FD NAME=FIELD1L, INPUT=SEQIN, LENGTH=80 
FD NAME=FIELD2,L_ENGTH=10, FORMAT=AL,ACTION=RP, 
STARTLOC=1 
CREATE QUANTITY=100, INPUT=SEQIN, NAME=CFIELD1,FIELD2) 
END 


The control statements are discussed below: 


® SEQIN DD defines an input sequential data set CINSET). The 


data set was originally written ona 9-track, standard 
labeled tape volume. 


e SEQOUT DD defines the test output data set (OUTSET). Ten 
tracks of primary space and ten tracks of secondary space 
are allocated for the sequential data set on a disk volume 


e SYSIN DD defines the control data set, which follows in the 


input stream. 

e DSD marks the beginning of a set of utility control 
statements and refers to the DD statements defining the 
input and output data sets. 


e The FD statements create a 10-byte field in which the 


pattern ABCDEFGHIJ is initially placed. The data is rippled 


after each output record is written. 


@ CREATE constructs 100 output records in which the contents 
of a previously defined field CFIELDI) are included. The 
CREATE statement uses input records from data set INSET as 
the basis of the output records. 





® 


® END signals the end of a set of utility control statements. 


In this example, output records are created entirely from 
utility control statements. Three fields are created and used 
in the construction of the output records. In two of the 
fields, alphabetic data is truncated; the other field is a 
numeric field that 1S incremented Cindexed) by one after each 
output record is written. Figure 48 on page 125 shows the 
contents of the output records at the end of the job step. 
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Field 1 Field 2 


1 31 6t 


Field 3 (packed decimal) 
71 80 














Figure 48. Output Records at Job Step Completion 





//UTLYONLY JOB... 

Sf EXEC PGM=IEBDG 

Z/SYSPRINT DD SYSOUT=A 

//SEQOUT DD DSNAME=OUTSET,UNIT=disk, DISP=(,KEEP), 
7 DCB=CRECFM=FB,LRECL=80,BLKSIZE=800), 
// SPACE=C(TRK,(10,10)), 

Sf VOLUME=SER=111111 

“/SYSIN DD DATA 


DSD OUTPUT=CSEQOUT) 

FD NAME=FIELD1,LENGTH=30,STARTLOC=1,FORMAT=AL,ACTION=TL 

FD NAME=FIELD2,LENGTH=30,STARTLOC=31,FORMAT=AL,ACTION=TR 

FD NAME=FIELD3,LENGTH=10,STARTLOC=71,PICTURE=10, C 
P*'1234567890', INDEX=1 

eager QUANTITY=100,NAME=CFIELD1,FIELD2,FIELD3),FILL=X'FF' 





The control statements are discussed below: 


e SEQOUT DD defines the test output data set. Ten tracks of 
primary space and ten tracks of secondary space are 
allocated for the sequential data set ona disk volume. 


® SYSIN DD defines the control data set, which follows in the 
input stream. 


e DSD marks the beginning of a set of utility control 
statements and refers to the DD statement defining the 
output data set. 


e FD defines the contents of three fields to be used in the 
construction of output records. The first field contains 30 
bytes of alphabetic data to be truncated left after each 
output record is written. The second field contains 30 
bytes of alphabetic data to be truncated right after each 
output record is written. The third field is a 10-byte 
field containing a packed decimal number (1234567890) to be 
increased by one after each record is written. 


e CREATE constructs 100 output records in which the contents 
of previously defined fields (FIELDI1, FIELD2, and FIELD3) 
are included. Note that after each record is written, 
FIELD1 and FIELD2 are restored to full width. 


° END signals the end of a set of utility control statements. 


IEBDG Program 125 





IEBDG EXAMPLE 4& 


In this example, two partitioned members and input records from ‘ j 
the input stream are used as the basis of a partitioned output Meee’ 
member. Each block of 12 output records contains 10 modified 
records from an input partitioned member and two records from 
the input stream. Figure 49 shows the contents of the output 
partitioned member at the end of the job step. 


Input Output Records 
Department 21 (Rightmost 67 bytes of INSET1 (MEMBA) record’ 1) 1 1st block of 12 
° ° 
e e 
e e 
Department 21 (Rightmost 67 bytes of INSET1 (MEMBA) record 10) 10 
input record 1 from input stream 11 
Input record 2 from input stream 12 
Department 21 (Rightmost 67 bytes of INSET1 (MEMBA) record 11) 1 2nd block of 12 
: ° 
e ® 
e : e 
Department 21 (Rightmost 67 bytes of INSET1 (MEMBA) record 20) 10 
Input record 3 from input stream 11 
Input record 4 from input stream 12 
e@ 
@ 
e 
e 
Department 21 (Rightmost 67 bytes of INSET1 (MEMBA) record 91) 1 10th block of 12 
e 
° ° - 
@ e | 
® e % og 
Department 21 (Rightmost 67 bytes of INSET1 (MEMBA) record 100) 10 as 
Input record 19 from input stream 11 
Input record 20 from input stream 12 
Department 21 (Rightmost 67 bytes of INSET2 (MEMBA) record 1) 1 11th block of 12 
° ° 
e @ 
e e 
Department 21 (Rightmost 67 bytes of INSET2 (MEMBA) record 10) 10 
Input record 21 from input stream 11 
Input record 22 from input stream 12 
& 
e 
e 
e 


Figure 49. Output Partitioned Member at Job Step Completion 
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JOB... 

// EXEC PGM=IEBDG 

//SYSPRINT DD SYSOUT=A 

//PARINI DD DSNAME=INSET1CMEMBA),UNIT=disk, DISP=OLD, 

// DCB=CRECFM=FB,LRECL=80, BLKSIZE=800, DSORG=PS5), 

// VOLUME=SER=111111 

//PARIN2 DD DSNAME=INSET2(MEMBA),UNIT=disk, DISP=OLD, 

// DCB=CRECFM=FB,LRECL=80, BLKSIZE=960, DSORG=PS), 

Sf VOLUME=SER=222222 

//PAROUT DD DSNAME=PARSETCMEMBA),UNIT=disk, DISP=(,KEEP), 

// VOLUME=SER=333333,SPACE=(TRK,(€10,10,5)), 

// DCB=CRECFM=FB,LRECL=80, BLKSIZE=960, DSORG=PO) 

S/SYSIN DD DATA 
OUTPUT=CPAROUT), INPUT=CPARINI, PARIN2) 
NAME=FIELD1,LENGTH=13,PICTURE=13,"DEPARTMENT 21° 
QUANTITY=10,CREATE=2 
QUANTITY=10,INPUT=PARINI,NAME=FIELD1 

CREATE QUANTITY=2,INPUT=SYSIN 





Cianput records 1 through 20) 


| $$$E 
REPEAT QUANTITY=10,CREATE=2 
CREATE QUANTITY=10, INPUT=PARIN2,NAME=FIELD1 
CREATE QUANTITY=2,INPUT=SYSIN 


Cinput records 21 through 40) 


| S$$E 
END 
/% 





The control statements are discussed below: 
e PARINIL DD defines one of the input partitioned members. 


e PARIN 2 DD defines the second of the input partitioned 
members. (Note that the members are from different 
partitioned data sets.) 


e PAROUT DD defines the output partitioned member. This 
example assumes that the partitioned data set does not exist 
prior to the job step; that is, this DD statement allocates 
space for the partitioned data set. 


e SYSIN DD defines the control data set, which follows in the 
input stream. 


e DSD marks the beginning of a set of utility control 
statements and refers to the DD statements defining the 
input and output data sets. 


e FD creates a 13-byte field in which the picture "DEPARTMENT 
21" is placed. 


e The first REPEAT statement indicates that the following 
group of two CREATE statements is to be repeated 10 times. 


e The first CREATE statement creates 10 output records. Each 
output record is constructed from an input record (from 


et data set INSET1) and from previously defined 
FIELDI. 


° The second CREATE statement indicates that two records are 
to be constructed from input records included next in the 
input stream. 
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IEBDG EXAMPLE 5 





® The $$$E record separates the input records from the REPEAT 
statement. The next REPEAT statement group is identical to 
the preceding group, except that records from a different 
partitioned member are used as input. 


e END signals the end of a set of utility control statements. 


In this example, output records are created from three sets of 
utility control statements and written in three partitioned data 
set members. Four fields are created and used in the 
construction of the output records. In two of the fields 
CFIELDI and FIELD3), alphabetic data is shifted. FIELD2 is 
fixed zoned decimal and FIELD4 is fixed alphameric. Figure 50 
pala the partitioned data set members at the end of the job 
step. 





MEMBA 








Field 3 
31 
ABECDEFGHIJKLMNOPOQRSTUVWX YZABCD | ABCDEFGHIJKLMNOPORST 


BCDEFGHIJKLMNOPQRSTUVWXYZABCD | ABCDEFGHIJKLMNOPORS | 00000000000000000001{ fill 
R | fill 
Li 







CDEFGHIJKLMNOPQRSTUVWX Y ZABCD ABCDEFGHIJKLMNOPQ 
ABCDEFGHIJKLMNOPO 


DEFGHIJKI MNOPQRSTUVWXYZABCR N00000000 00000C=ALA1 
















21 41 
ABCDESGHIJKL == APN | O0NNNO000N0RAASANND 


MEMBC 
Field 4 
1 


31 
ABCDEF GHIJKLMNOPQRSTUVWXYZ0123} ABCDEFGHIJKLMNOPORSTUVWX YZABCD 
ABCDEFGHIJKLMNOPQRSTUVWXYZ0123} BCDEFGHIJKLMNOPORSTUVWX YZABCD 
ABCDEF GHIJKLMNOPQRSTUVWXYZ0123/ COEF GHIJKLMNOPORSTUVWXYZABCD 


ABCDEFGHLIKLMNOPORSTUYWY Y 20123] DEFGHIJKEMANIQPORST WX YZASCN 









Field | 














Figure 50. Partitioned Data Set Members at Job Step Completion 





The control statements are discussed below: 


e PAROUT1 DD defines the first member CMEMBA) of the 
partitioned output data set. This example assumes that the 
partitioned data set does not exist prior to this job step; 
that is, this DD statement allocates space for the data set. 


e PAROUT2 and PAROUT3 DD define the second and third members, 
respectively, of the output partitioned data set. Note that 
each DD statement specifies DISP=OLD and UNIT=AFF=PAROUT1. 


e SYSIN DD defines the control data set that follows in the 
input stream. : 


® DSD marks the beginning of a set of utility control 
statements and refers to the DD statement defining the 
member applicable to that set of utility control statements. 


e FD defines the contents of a field that is used in the 
subsequent construction of output records. 
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//UTSTS JOB... 

Sf EXEC PGM=IEBDG 

//SYSPRINT DD SYSOUT=A 

//PAROUT1L DD DSNAME=PARSETCMEMBA),UNIT=disk, 
DISP=C€,KEEP), 
VOLUME=SER=11I1111,SPACE=CTRK,C10,10,5)), 

17 DCB=CRECFM=FB,LRECL=80, BLKSIZE=800, DSORG=PS) 

//PAROUT2 DSNAME=PARSETCMEMBB),UNIT=AFF=PAROUTI, 

A DCB=CRECFM=FB,LRECL=80,BLKSIZE=800,DSORG=PS), 

Sf DISP=OLD, 

// VOLUME=SER=111111 

//PAROUTS3 DSNAME=PARSETCMEMBC) , UNIT=AFF=PAROUTIL, ; 

// DCB=CRECFM=FB,LRECL=80,BLKSIZE=800,DSORG=PS), 
DISP=OLD, 
VOLUME=SER=l111111 

S/SYSIN DATA 
OUTPUT=CPAROUTI) 
NAME=FIELD1,L_ ENGTH=30, FORMAT=AL,ACTION=SL 
NAME=FIELD2,LENGTH=20, FORMAT=ZD 
NAME=FIELD3,LENGTH=20,F ORMAT=AL,ACTION=SR 
NAME=FIELDG, LENGTH=30,FORMAT=AN 
QUANTITY=4,NAME=CFIELD1,FIELD3,FIELD2) 


OUTPUT=(PAROUT2) 
QUANTITY=4,NAME=CFIELD2, CCOPY=3,FIELD3)) 


OUTPUT=CPAROUT3) 
QUANTITY=4,NAME=C(FIELD4,FIELDI) 





e CREATE constructs four records from combinations of 
previously defined fields. 


e END signals the end of a set of utility control statements. 


IEBDG EXAMPLE 6 


In this example, 10 fields containing user-supplied EBCDIC 
pictures are used in the construction of output records. After 
a record 1s written, each field is rolled or waved, as specified 
in the applicable FD statement. Figure 51 shows the contents of 
the output records at the end of the job step. 






FIELD1 FIELD2 FIELD3 FIELD4 FIELDS FIELD6 FIELD7 FIELD8 FIELD FIELD10 
AaaAAlpeBBB [A AA | BBB] AAA | ccccc|_ ppp 









AAA c cc | Dob D 
BBBBB | AAA eC. | Opp | cee. 
A AAl 8B B| AAA | ccccc |oppp [ccc [oD _D [ccc 
KAA [BBB [AAA _|ecccc | pppbb | c cc | pp b| ccc 
TAAAAA | 88888 [A AA | BB Al AAA | ccccc| oppd | c cc | od Dd | ccc 
[AAAAA | BBBBB_| AAA |BB 8 | AAA | ccccc |DppD |e cc [DDD [ccc 
[—AAAAA|B8888 | A AA] BB B|_AAA_| ccccc | pDppp | c cc | ppd. b| ccc | 
[—AAAAA | BBB8B | A AA eB 8| AAA |[ccccc | oppp | c cc | oD b|ccc 
| AAAAA | BBBBB [A AA | BB BL AAAL ~—Ccccci|pppp ~—s [ec ~Ccc [DDS [Ccc 
cc [| pp pl ccc | 


Ww 


> 






> 
QO 


> 
> 
6) 


C 


B 
AAAAA BBBBB] A AA AAA CCCCC DDDD 








Figure 51. Contents of Output Records at Job Step Completion 
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//ROLLWAVE JOB... 

// EXEC PGM=IEBDG 

//SYSPRINT DD SYSOUT=A 

//OUTSET DD DSNAME=SEQSET,UNIT=disk, DISP=(,KEEP), 

// VOLUME=SER=SAMP, SPACE=CTRK, €10,10)), 

// DCB=CRECFM=FB,LRECL=80, BLKSIZE=800) 

S/SYSIN DD xX 
OUTPUT=COUTSET) 
NAME=FIELD1,LENGTH=8,PICTURE=8, ' AAAAA', ACTION=RO 
NAME=FIELD2,LENGTH=8,PICTURE=8, 'BBBBB 1, ACTION=RO 
NAME=FIELD3,LENGTH=8,PICTURE=8, 'A AA ',ACTION=RO 
NAME=FIELD4¢,LENGTH=8,PICTURE=8,*" BB B*',ACTION=RO 
NAME=FIELD5,LENGTH=8,PICTURE=8, ' AAA ',ACTION=RO 
NAME=FIELD6,LENGTH=8,PICTURE=8, ' CCCCC', ACTION=NV 
NAME=FIELD7,LENGTH=8,PICTURE=8,' DDDD ',ACTION=WV 
NAME=FIELD8,LENGTH=8,PICTURE=8," C CC ',ACTION=WV 
NAME=FIELD9,LENGTH=8,PICTURE=8," DD D',ACTION=WV 
NAME=FIELD10,LENGTH=8,PICTURE=8,' CCC ", ACTION=WV 

CREATE QUANTITY=300,NAME=CFIELDI,FIELD2, FIELDS, C 
FIELD4G,FIELD5,FIELD6,FIELD/,FIELD8, C 
FIELD9,FIELDI1O) 
END 
/X® 





The control statements are discussed below: 


e OUTSET DD defines the output sequential data set ona disk 
volume. Ten tracks of primary space and 10 tracks of 
secondary space are allocated to the data set. 


e SYSIN DD defines the control data set that follows in the 
input stream. 


e DSD marks the beginning of a set of utility control 
statements and refers to the DD statement defining the 
output data set. 

e FD defines a field to be used in the subsequent construction 
of output records. The direction and frequency of the 
Tori roll or wave depend on the location of data in the 

1eld. 


e CREATE constructs 300 records from the contents of the 
previously defined fields. 


e END signals the end of a set of utility control statements. 
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IEBDG EXAMPLE 7 


In this example, the first 10 bytes of the output record contain 
data generated in zoned decimal format. This field serves as 
the key field for the output record in the output indexed 
sequential data set. The key field is increased Cindexed) by 
one for each record. The input sequential data set provides an 
additional 80-byte field to complete the output record. 


//CREATEIS JOB... 
//BEGIN EXEC PGM=IEBDG 
//TAPEIN DD DCB=CBLKSIZE=80,LRECL=80,RECFM=F), 
DISP=COLD,KEEP),UNIT=disk, 
LABEL=(,SL), 
DSNAME=TAPEIT,VOL=SER=MASTER 
//DISKOUT DCB=(BLKSIZE=270,LRECL=90,RECFM=FB, DSORG=IS, 
// NTM=2,OPTCD=MY,RKP=0,KEYLEN=10,CYLOFL=1), 
// UNIT=disk,SPACE=C(CYL,1), 
17 DISP=C(NEW,KEEP), 
Sf VOL=SER=111111,DSNAME=CREATIS 
//SYSPRINT DD SYSOUT=A 
S//SYSIN DD x 
DSD OUTPUT=C( DISKOUT), INPUT=CTAPEIN) 
FD NAME=DATAFD,LENGTH=80,FROMLOC=1, 
STARTLOC=11,INPUT=TAPEIN 
FD NAME=KEYFD,LENGTH=10,STARTLOC=1,FORMAT=ZD, INDEX=1 
CREATE INPUT=TAPEIN,NAME=CKEYFD, DATAFD) 
END 
/*¥ 





The control statements are discussed below: 
® TAPEIN DD defines the sequential input data set. 
@ DISKOUT DD defines the indexed sequential output data set. 


® SYSIN DD defines the control data set, which follows in the 
Input stream. 


e DSD marks the beginning of a set of utility control 
statements and refers to the DD statement defining the 
output data set. 


® FD defines a field that will be used in the subsequent 
construction of output records. The first FD statement in 
this example defines and locates an 80-byte field of input 
data. The data is field selected from one of the input 
logical records and placed at start location ll of the 
output logical record. The second FD statement defines and 
locates the l10-byte key field. 


e CREATE constructs a 90-byte output record by referring to 
the previously defined fields. 


e END signals the end of a set of utility control statements. 
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TEBEDIT PROGRAM 


IEBEDIT is a data set utility used to create an output data set 
containing a selection of jobs or job steps. At a later time, 
data sets defined on tape volumes and direct access devices can 
be used as input streams for job processing. 


IEBEDIT creates an output job stream by editing and selectively 
copying a job stream provided as input. The program can copy: 


e An entire job or jobs, including JOB statements and any 
associated JOBLIB or JOBCAT statements, and JES2 or JES3 
control statements. 


e Selected job steps, including the JOB statement, JES2 or 
JES3 control statements following the JOB statement, and any 
associated JOBLIB or JOBCAT statements. 


All selected JOB statements, JES2 or JES3 control statements, 
JOBLIB or JOBCAT statements, jobs, or job steps are placed in 
the output data set in the same order as they exist in the input 
data set. A JES2 or JES3 control statement or a JOBLIB or 
JOBCAT statement is copied only if it follows a selected JOB 
statement. 


When IEBEDIT encounters a selected job step containing an input 
record having the characters ™..*" (period, period, asterisk) in 
columns 1 through 3, the program automatically converts that 
record to a termination statement (/* statement) and places it 
in the output data set. 


A "/X¥nonblank"™ indicates a JES2 or JES3 control statement. 


INPU ND OQUTPU | ea 
IEBEDIT uses the following input: 


e An input data set, which is a sequential data set consisting 
of a job stream. The input data set is used as source data 
1n creating an output sequential data set. 


e A control data set, which contains utility control 
statements that are used to specify the organization of jobs 
and job steps in the output data set. 


IEBEDIT produces the following output: 


e An output data set, which is a sequential data set 
consisting of a resultant job stream. 


6 A message data set, which 1s a sequential data set that 
contains applicable control statements, error messages, if 
applicable, and, optionally, the output data set. 


RETURN CODES 


ITEBEDIT returns a code in register 15 to indicate the results of 
program execution. The return codes and their meanings are 
listed in Figure 52 on page 133. 
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CONTROL 


Codes Meaning 


00 (00 hex) Successful completion. 


0G (04) An error occurred. The output data set may not be 
usable as a job stream. Processing continues. 
08 (08) An unrecoverable error occurred while attempting to 


process the input, output, or control data set. 
The job step is terminated. 


Figure 52. IEBEDIT Return Codes 


IEBEDIT is controlled by job control statements and utility 
control statements. The job control statements are required to 
execute or invoke the program and to define the data sets used 
and produced by the program. The utility control statements are 
used to control the functions of the program. 


JOB CONTROL STATEMENTS 


Figure 53 shows the job control statements for IEBEDIT. 


Statement Use 
JOB Initiates the job. 
EXEC Specifies the program name (PGM=IEBEDIT) or, if the 


job control statements reside in a procedure 
library, the procedure name. 


SYSPRINT DD Defines a sequential message data set. The data 
set can be written to a system output device, a 
tape volume, or a direct access volume. 


SYSUT1 DD Defines a sequential input data set ona card 
reader, tape volume, or direct access device. 

SYSUT2 DD Defines a sequential output data set on a card 
punch, printer, tape volume, or direct access 
device. 

SYSIN DD Defines the control data set. The data set normally 


1s included in the input stream; however, it can be 
defined as a member of a procedure library or as a 
sequential data set existing somewhere other than 
in the input stream. 


Figure 53. Job Control Statements for IEBEDIT 


Notes to Figure 53: 


1. The block size for the SYSPRINT data set must be a multiple 
of 121. If not, the job step is terminated with a return 
code of 8. The block size for the SYSIN, SYSUT1, and SYSUT2 
data sets must be a multiple of 80. Any blocking factor can 
be specified for these record sizes. 
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Any JES2 or JES3 control statement or JOBLIB DD statement 
that follows a selected JOB statement is automatically 
copied to the output data set. 


JES2 or JES3 control statements preceding the JOB statement 
are assumed to belong to the previous job. JES2 or JES3 
control statements preceding the first JOB statement are 
included only if a total copy is requested. 


JES2 or JES3 control statements within a DD DATA stream are 
included only if a delimiter other than "/X*¥" is coded in the 
DD DATA card. For a description of coding another 
delimiter, see the publication JCL. If another delimiter is 
not coded, the first two characters of the JES2 or JES3 
control statement will act as a delimiter to DD DATA. 


UTILITY CONTROL STATEMENT 


EDIT Statement 


IEBEDIT uses only one utility control statement, EDIT. 
Continuation requirements for the statement are described in 
"Continuing Utility Control Statements" on page 5. 


The EDIT statement indicates which step or steps of a specified 
job in the input data set are to be included in the output data 


Any number of EDIT statements can be included in an 


operation, thus including selected jobs in the output data set. 
EDIT statements must be included in the same order as the input 
jobs that they represent. If no EDIT statement is present in 
the control data set, the entire input data set is copied. 


The format of the EDIT statement is: 


[label] EDIT [START=j0obname] 
[, TYPE=POSITION| INCLUDE [EXCLUDE] 


[C,STEPNAME=(namel,»name-namel),...] 
[»,NOPRINT] 
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Applicable 

Control 
Parameters Statements Description of Parameters 
NOPRINT EDIT NOPRINT 


specifies that the message data set is not to 
include a listing of the output data set. 





Default: The resultant output is listed in the 
message data set. 


START EDIT START=j0bname 

specifies the name of the input job to which the 
EDIT statement applies. (Each EDIT statement 
must apply to a separate job.) If START is 
specified without TYPE and STEPNAME, the JOB 
statement and all job steps for the specified 
job are included in the output. 


Default: If START is omitted and only one EDIT 
statement 1S provided, the first job encountered 
in the input data set is processed. If START is 
omitted from an EDIT statement other than the 
first statement, processing continues with the 
next JOB statement found in the input data set. 


STEPNAME EDIT STEPNAME=(namel »name-name] )»,... 

specifies the first job step to be placed in the 
output data set when coded with TYPE=POSITION. 
Job steps preceding this step are not copied to 
the output data set. 


name can be specified as a single job step nane 
or a sequential range of names, separated by a 
hyphen: name-name. If more than one value is 
specified for name, the entire STEPNAME field 
must be enclosed in parentheses. 


When coded with TYPE=INCLUDE or TYPE=EXCLUDE, 
STEPNAME specifies the names of job steps that 
are to be included in or excluded from the 
operation. For example, 
STEPNAME=CSTEPA,STEPF-STEPL,STEPZ) indicates 
that job steps STEPA, STEPF through STEPL, and 
STEPZ are to be included in or excluded from the 
operation. 


Default: If STEPNAME is omitted, the entire 
input job whose name is specified on the EDIT 
statement is copied. If no job name is 
specified, the first job encountered is 
processed. 
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Applicable 
Control 





Parameters | Statements Description of Parameters ma 
TYPE EDIT TYPE=POSITION | INCLUDE | EXCLUDE 













specifies the contents of the output data set. 
These values can be coded: 


POSITION 
specifies that the output 1s to consist of 
a JOB statement, the job step specified in 
the STEPNAME parameter, and all steps that 
follow it. All job steps preceding the 
specified step are omitted from the 

operation. POSITION is the default. 


INCLUDE 
specifies that the output data set is to 

contain a JOB statement and all job steps 
specified in the STEPNAME parameter. 


EXCLUDE 
specifies that the output data set is to 

contain a JOB statement and all job steps 
belonging to the job except those steps 
specified in the STEPNAME parameter. 
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The following examples show some of the uses of IEBEDIT. 
Figure 54 can be used as a quick-reference guide to these | 
examples. The numbers in the “"Example™ column refer to the oe 


examples that follow. 
1 
from each of three 


COPY 9-track Tape The input data set 

contains three jobs. 
One job is to be 
copied. 

COPY 7-track Tape 2 
jobs. 

COPY Disk and Include a job step from 3 

9-track Tape one job and exclude a 

job step from another 
Job. 

COPY Disk Latter portion of a job q 
stream is to be copied. 

COPY 9-track Tape All records in the 
input data set are to 
be copied. The ™,.x"™ 
record is converted to 
a "/*® " statement in 
the output data set. 


Figure 54 (Part 1 of 2). IEBEDIT Example Directory 






























The output data set is 
the second data set on 
the volume. One job 
step is to be copied 
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IEBEDIT EXAMPLE 1 


IEBEDIT EXAMPLE 2 


COPY 9-track Tape The input contains a 
JES2 or JES3 control 
statement and a new 
delimiter. 
Figure 54 (Part 2 of 2). IEBEDIT Example Directory 
Examples that use disk or tape in place of actual device numbers 
must be changed before use. See "DASD and Tape Device Support" 
on page 3 for valid device number notation. 










In this example, one job CJOBA), including all of its job steps 
CA, B, C, and DJ), 1s copied into the output data set. The input 
data set contains three jobs: JOBA, which has four job steps; 
eet which has three job steps; and JOBC, which has two job 
steps. 


//EDITI JOB... 

// EXEC PGM=IEBEDIT 

//SYSPRINT DD SYSOUT=A 

//SYSUTI DD UNIT=tape, DISP=COLD,KEEP),VOL=SER=001234 
S/SSYSUT2! DD UNIT=tape, DISP=(NEW,KEEP),VOL=SER=001235, 


// DCB=CRECFM=F,LRECL=80,BLKSIZE=80), 
// DSNAME=OUTTAPE 
//SYSIN DD xX 

EDIT START=JOBA 
/* 





The control statements are discussed below: 


° SYSUT1 DD defines the input data set. The data set resides 
on a standard labeled tape volume (001239). 


e SYSUT2 DD defines the output data set, called OUTTAPE. The 
data set is to reside as the first data set on a standard 
labeled tape volume (001235). 


@ SYSIN DD defines the control data set, which follows in the 
input stream. 


e EDIT indicates that JOBA is to be copied in its entirety. 


This example copies one job step from each of three jobs. The 
input data set contains three jobs: JOBA, which includes STEPA, 
STEPB, STEPC, and STEPD; JOBB, which includes STEPE, STEPF, and 
STEPG; and JOBC, which includes STEPH and STEPJ. 
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IEBEDIT EXAMPLE 3 





//EDIT2 JOB... 

Sf EXEC PGM=IEBEDIT 

//SYSPRINT DD SYSOUT=A 

S/SYSUTI DD DISP=COLD,KEEP),VOLUME=SER=001234, 

Sf UNIT=tape 

//SYSUT2 DD DSN=OQUTSTRM,UNIT=tape, DISP=CNEW, KEEP), 


// DCB=CRECFM=F,LRECL=80,BLKSIZE=80), 

Sf LABEL=(€2,5SL) 

S/SYSIN DD xX 
EDIT START=JOBA, TYPE=INCLUDE, STEPNAME=(STEPC, STEPD) 
EDIT START=JOBB, TYPE=INCLUDE, STEPNAME=STEPE 
EDIT START=JOBC, TYPE=INCLUDE, STEPNAME=STEPJ 





The control statements are discussed below: 


e SYSUT1 DD defines the input data set. The data set resides 
on a standard labeled tape volume (0012349). 


® SYSUT2 DD defines the output data set, OUTSTRM. The data 
set is to reside as the second data set on a standard 
labeled tape volume (001235). 


e SYSIN DD defines the control data set, which follows in the 
input stream. 


e The EDIT statements copy the JOB statements and job steps 
described as follows: 


1. The JOB statement and steps STEPC and STEPD for JOBA. 
2. The JOB statement and STEPE for JOBB. 
3. The JOB statement and STEPJ for JOBC. 


This example includes a job step from one job and excludes a job 
step from another job. The input data set contains three jobs: 
JOBA, which includes STEPA, STEPB, STEPC, and STEPD; JOBB, which 
aie ee te STEPF, and STEPG; and JOBC, which includes STEPH 
an ; 


//EDITS JOB... 

// EXEC PGM=IEBEDIT 

7SYSPRINT DD SYSOUT=A 

“/SYSUT1 DD DSNAME=INSET,UNIT=disk, DISP=COLD,KEEP), 
// VOLUME=SER=111111 

//SYSUT2 DD DSNAME=OUTTAPE,UNIT=tape,LABEL(,NL), 

4/ 


DCB=(DEN=2,RECFM=F,LRECL=80,BLKSIZE=80), 
// DISP=(,KEEP) 
7/7SYSIN DD xX 
EDIT START=JOBB, TYPE=INCLUDE, STEPNAME=CSTEPF-STEPG) 
EDIT START=JOBC, TYPE=EXCLUDE, STEPNAME=STEPJ 
7% 
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IEBEDIT EXAMPLE 4 


The control statements are discussed below: 


@ SYSUT1 DD defines the input data set, INSET. The data set 
resides on a disk volume C1I11111). 


e SYSUT2 DD defines the output data set, QUTTAPE. The data 
set is to reside as the first or only data set on an 
unlabeled (800 bits per inch) tape volume. 


e SYSIN DD defines the control data set, which follows in the 
input stream. 


@ The EDIT statements copy JOB statements and job steps as 
described below: 


1. The JOB statement and steps STEPF and STEPG for JOBB. 
2. The JOB statement and STEPH, excluding STEPJ, for JOBC. 


This example copies the JOBA JOB statement, the job step STEPF, 
and all the steps that follow it. The input data set contains 
one job (CJOBA), which includes STEPA, STEPB, .. . STEPL. Job 
— STEPA through STEPE are not included in the output data 
set. 


//EDITS JOB... 

// EXEC PGM=IEBEDIT 

Z/SYSPRINT DD SYSQUT=A 

7/SYSUT1 DD DSNAME=INSTREAM, UNIT=disk, 
11 DISP=COLD, KEEP), 

// VOLUME=SER=111111 

S/SYSUT2 DD DSNAME=OUTSTREM, UNIT=disk, 
17 


DISP=(,KEEP), 
// DCB=(RECFM=F,LRECL=80, BLKSIZE=80), 
// VOLUME=SER=222222, 
// SPACE=CTRK, 2) 
“/SYSIN DD 


x 
EDIT START=JOBA, TYPE=POSITION, STEPNAME=STEPF 
7% 





The control statements are discussed below: 


° SYSUT1 DD defines the input data set, called INSTREAM. The 
data set resides on a disk volume CI111111). 


e SYSUT2 DD defines the output data set, called OUTSTREAM. 
The data set is to reside ona disk volume (222222). Two 
tracks are allocated for the output data set. 


e SYSIN DD defines the control data set, which follows in the 
input stream. 


e EDIT copies the JOBA JOB statement and job steps STEPF 
through STEPL. 
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IEBEDIT EXAMPLE 5 


This example copies the entire input (CSYSUT1) data set. The 
record containing the characters ™..X*" in columns 1 through 3 is 
converted to a "/X®X ™ statement in the output data set. . 


// 
Af 
17f 
“7 
/f 
1 
1 
// 
// 
// 
4/7 
1/ 
// 
17 


EDITS JOB... 
EXEC PGM=IEBEDIT 
SYSPRINT DD SYSOUT=A 
SYSUT2 DDB DSNAME=OUTTAPE, UNIT=tape, 
VOLUME=SER=001234, 
DCB=CRECFM=F,LRECL=80, BLKSIZE=80), 
DISP=CNEW, KEEP) 
SYSIN DD DUMMY 
SYSUT1 DD DATA 
BLDGDGIX JOB 
EXEC PGM=IEHPROGM 
SYSPRINT DD SYSOUT=A 
DDI DD UNIT=disk, VOLUME=SER=111111,DISP=OLD 
SYSIN DD xX 
BLDG INDEX=A.B.C,ENTRIES=10, EMPTY 


ar, 3 
AR 





The control statements are discussed below: 


SYSUT2 DD defines the output data set, called OUTTAPE. The 
AS 1s to reside as the first data set on a tape volume 
349). 


SYSIN DD defines a dummy control data set. 


SYSUT1 DD defines the input data set, which follows in the 
input stream. The job is terminated when the termination 
statement (/Xb) is encountered. (C(SYSUT1 therefore includes 
the BLDGDGIX JOB statement, EXEC statement, SYSPRINT, DDI, 
and SYSIN DD statements. ) 
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IEBEDIT EXAMPLE 6 


including the JES2 control statement, because a new delimiter 
(JP) has been coded. Otherwise, the "/X" the JES2 control 
statement would have terminated the input. 


( This example copies the entire input (SYSUT1) data set, 


//EDIT6 JOB... 

//STEPA EXEC PGM=IEBEDIT 

//SYSPRINT DD SYSOUT=A 

“/SYSUT2? DD DSN=TAPEOUT,UNIT=tape, 
VOL=SER=001234,LABEL=(,5L), 
DCB=(RECFM=FB,LRECL=80, BLKSIZE=800), 
DISP=CNEW, KEEP) 

//SYSIN DD DUMMY 

S/SYSUTI DD DATA,DLM=JP 


//LISTVTOC JOB 09550, BLUE 
“XMESSAGE JOB NEEDS VOLUME 338000 
//FSTEP EXEC PGM=IEHLIST 
7/SYSPRINT DD SYSOUT=A 
//DD2 DD UNIT=disk,VOL=SER=111111,DISP=OLD 
7/7SYSIN DD xX 
LISTVTOC FORMAT,VOL=disk=111111 


7% 
JP 





The control statements are discussed below: 


e SYSUT2 DD defines the output data set, called TAPEOUT. The 
data set will be the first data set ona standard label tape 
volume (001234). 


( e SYSIN DD defines a dummy control data set. 


e SYSUT1 DD defines the input data set, which follows in the 
input stream. The DLM parameter defines characters JP to 
act as a delimiter for the input data. 


e IEBEDIT copies the JOB statement through the "7x" statement 
Cincluding the LISTVTOC and MESSAGE job statements, FSTEP 
EXEC statement, and SYSPRINT, DD2 and SYSIN DD statements). 
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TEBGENER PROGRAM 


IEBGENER is a data set utility that can be used to: 


e Create a backup copy of a sequential data set or a 
partitioned member. 


e Produce a partitioned data set or member from a sequential 
input data set 


e Expand an existing partitioned data set by creating 
partitioned members and merging them into the data set that 
is to be expanded. 


e Produce an edited sequential or partitioned data set. 
e Reblock or change the logical record length of a data set. 


e Copy user labels on sequential output data sets. (Refer to 
Appendix C, "Processing User Labels" on page 426.) 


e Provide optional editing facilities and exits for user 
routines that process labels, manipulate input data, create 
keys, and handle permanent input/output errors. Refer to 
Appendix A, “Exit Routine Linkage" on page 422, for a 
discussion of linkage conventions that are applicable when 
user routines are provided. 


CREATING A BACKUP COPY 


A backup copy of a sequential data set or partitioned member can © > 


be produced by copying the data set or member to any 
IBM-supported output device. For example, a copy can be made 
from tape to tape, from DASD to tape, etc. 


A data set that resides ona direct access volume can be copied 
to its own volume, provided that its data set name is changed. 
A partitioned data set cannot reside on a magnetic tape volume. 


PRODUCING A PARTITIONED DATA SET FROM SEQUENTIAL INPUT 


Through the use of utility control statements, you can logically 
divide a sequential data set into record groups and assign 
member names to the record groups. IEBGENER places the newly 
created members in a partitioned output data set. 


A partitioned data set cannot be produced if an input or output 
data set contains spanned records. 


Figure 55 on page 143 shows how a partitioned data set is 
produced from a sequential data set used as input. The left 
side of the figure shows the sequential data set. Utility 
control statements are used to divide the sequential data set 
into record groups and to provide a member name for each record 
group. The right side of the figure shows the partitioned data 
set produced from the sequential input. 
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( Sequential Partitioned 
Asi. | input output 


Utility control Record 


statement names 
first member 


Directory 


LASTREC 1 


LASTREC 2 





Utility control 
statement identified 
last record 





Record 
group 


Utility control 
statement names 
new member 


/LASTREC n 


Utility control 
statement identifies 
last record 


Utility control 
statement names 
new member 





Record 
group 


LASTREC n | 


Figure 55. Creating a Partitioned Data Set from Sequential 
Input Using IEBGENER 


EXPANDING A PARTITIONED DATA SET 


An expanded data set is a data set into which an additional 
member or members have been merged. IEBGENER creates the 
members from sequential input and places them in the data set 
being expanded. The merge operation-—~-the ordering of the 


partitioned directory-——is automatically performed by the 
program. 


Figure 56 on page 144 shows how sequential input is converted 
into members that are merged into an existing partitioned data 
set. The left side of the figure shows the sequential input 
that is to be merged with the partitioned data set shown in the 
middle of the figure. Utility control statements are used to 
divide the sequential data set into record groups and to provide 
a member name for each record group. The right side of the 
figure shows the expanded partitioned data set. Note that 
members B, D, and F from the sequential data set were placed in 
available space and that they are sequentially ordered in the 
partitioned directory. 
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Figure 56. Expanding a Partitioned Data Set Using IEBGENER 





PRODUCING AN EDITED DATA SET 


IEBGENER can be used to produce an edited sequential or 
partitioned data set. Through the use of utility control 
statements, you can specify editing information that applies to 
a record, a group of records, selected groups of records, or an 
entire data set. 


| An edited data set can be produced by: 
@ Rearranging or omitting defined data fields within a record. 
| e Supplying literal information as replacement data. 


| e Converting data from packed decimal to unpacked decimal 

| mode, unpacked decimal to packed decimal mode, or BCD* to 
EBCDIC mode. For more information on converting from BCD to 

| EBCDIC, see Data Administration Guide. 


Figure 57 on page 145 shows part of an edited sequential data 
set. The left side of the figure shows the data set before 
editing 1s performed. Utility control statements are used to 
identify the record groups to be edited and to supply editing 
information. In this figure, literal replacement information is 
supplied for information within a defined field. (Data is 
rearranged, omitted, or converted in the same manner.) The BBBB 
field in each record in the record group is to be replaced by 











4 Used here to mean the standard H character set of Binary 


Coded Decimal. | 
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cccc. The right side of the figure shows the data set after 
editing. 






Utility control statement. 


Defines record group, contains 
literal replacement data (CCCC). 
Applies to all records within 
the group. 








Record 
group 





Figure 57. Editing a Sequential Data Set Using IEBGENER 


ITEBGENER cannot be used to edit a data set if the input and 
output data sets consist of variable spanned (VS) or variable 
blocked spanned (VBS) records and have equal block sizes and 
logical record lengths. In these cases, any utility control 
statements that specify editing are ignored. That is, for each 
physical record read from the input data set, the utility writes 
an unedited physical record on the output data set. 


REBLOCKING OR CHANGING LOGICAL RECORD LENGTH 


LNPUT AND OUTPUT 


IEBGENER can be used to produce a reblocked output data set 
containing either fixed-length or variable-length records. In 
addition, as long as both input and output RECFM are not V or 
VB, the program can produce an output data set having a logical 
record length that differs from the input logical record length. 


IEBGENER uses the following input: 


e An input data set, which contains the data that is to be 
copied, edited, converted into a partitioned data set, or 
converted into members to be merged into an existing data 
set. The input is either a sequential data set or a member 
of a partitioned data set. 


e A control data set, which contains utility control 
statements. The control data set is required if editing is 
to be performed or if the output data set is to be a 
partitioned data set. 
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RETURN CODES 


IEBGENER produces the following output: 


e An output data set, which can be either sequential or so 
partitioned. The output data set can be either a new data 4” 
set (created during the current job step) or an existing 
partitioned data set that was expanded. If a partitioned 


data set is created, it isa new member with a new directory 
entry. None of the information 1s copied from the previous 
directory entry. 


e A message data set, which contains informational messages 
(for example, the contents of utility control statements) 
and any error messages. 


@ Message IEC507D will be issued twice when adding data or 
members to an existing data set which has an unexpired 
expiration date. This occurs because the input and output 
data sets are opened twice. 


IEBGENER returns a code in register 15 to indicate the results 
of program execution. The return codes and their meanings are 
listed in Figure 58. | 


Codes Meaning 


00 (00 hex) Successful completion. 


04 (04) Probable successful completion. A warning message 
is written. 

08 (08) Processing was terminated after you requested ‘ 
processing of user header labels only. 

l2 (0C) An unrecoverable error exists. The job step is 
terminated. 

16 (10) A user routine passed a return code of 16 to 


IEBGENER. The job step is terminated. 
Figure 58. IEBGENER Return Codes 


IEBGENER is controlled by job control statements and utility 
control statements. The job control statements execute or 
invoke ITEBGENER and define the data sets that are used and 
produced by the program. The utility control statements control 
the functions of IEBGENER. 


JOB CONTROL STATEMENTS 


Figure 59 on page 147 shows the ee? control statements for 
ITEBGENER. 
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| EXEC Statement 


Statement Use 
JOB Initiates the job. 
EXEC Specifies the program name CPGM=ITEBGENER) or, if 


the job control statements reside in a procedure 
library, the procedure name. 


SYSPRINT DD Defines a sequential message data set. The data 
set can be written to a system output device, a 
tape volume, or a DASD volume. 


SYSUT1 DD Defines the input data set. It can define a 
sequential data set or a member of a partitioned 
data set. 


SYSUT2 DD Defines the output data set. It can define a 
sequential data set, a member of a partitioned data 
set, or a partitioned data set. 


SYSIN DD Defines the control data set, or specifies DUMMY 
when the output is sequential and no editing is 
specified. The control data set normally resides 
in the input stream; however, it can be defined as 
a member ina partitioned data set. 


Figure 59. Job Control Statements for IEBGENER 


The EXEC statement is required for each use of IJEBGENER. 


Before you run IJEBGENER you may need to calculate the region 
Size (in virtual storage) needed to run the program. You would 
then specify this value in the REGION parameter. 


Using multiple buffers for IEBGENER increases the amount of 
virtual storage needed to run the program. You may need to 
change, or add, the REGION parameter for the additional storage 
to avoid 80A abends. 


The default for the number of buffers is five. You can override 
A by avers DCBBUFNO or DCBNCP on the SYSUT1 or SYSUT2 DD 
statement. 


You can calculate the region size by using the following 
formula: 


region size = 50K + €2 + SYSUT1 BUFNO)XCSYSUT1 BLKSIZE) + 
C2 + SYSUT2 BUFNO)XCSYSUT2 BLKSIZE) 


If you do not use BUFNO in your JCL, use the default value of 5. 


The following information, taken from "IEBGENER Example 3" on 
page 159, shows how to calculate the region size needed: 


SYSUT1 BUFNO = 20 

SYSUT1 BLKSIZE = 2K 

SYSUT2 BUFNO = Not specified, default is used 
SYSUT2 BLKSIZE = 32K 


region size = 50K + ¢€2 + 20)*C€2K) + 
C2 + 5)*C€32K) 


Therefore, region size = 318K (that is, REGION=318K). 
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SYSPRINT DD Statement 


a 
The SYSPRINT DD statement is required for each use of ITEBGENER. fa 
The block size for the SYSPRINT data set must be a multiple of Ne” 
121. Any blocking factor can be specified for this record size. 


SYSUT1 DD Statement 


The input data set for IEBGENER, as specified in SYSUTI1, can 
contain fixed, variable, undefined, or variable spanned records. 
Concatenated data sets with unlike attributes are not allowed as 
input to IEBGENER. For information on concatenated data sets, 
see Data Administratio uide. 


// cards CJCL statements) cannot be included in the SYSUT1 data 
set unless SYSUT1 DD DATA is specified. 


Block size must be specified for the input data set in one of 
two ways: 


@ With the BLKSIZE parameter in the DD statement 
e In the DCB information on the tape label. 


The default RECFM is U for the input data set. RECFM must be 
specified if the data set is new, undefined, a dummy data set, 
or a data set from a card punch. 


The input LRECL must be specified when the record format is FB, 

VS, or VBS, or when the data set is new, a dummy data set,» ora 

data set from a card punch. In all other cases, a default LRECL 
1s generated by IEBGENER. 


A partitioned data set cannot be produced if an input data set 
contains spanned records. 


If both the SYSUT1 and the SYSUT2 DD statements specify standard «./ 
user labels (SUL), IEBGENER copies user labels from SYSUT]1 to 

SYSUT2. See Appendix C;, "Processing User Labels™ on page 426, 

for a discussion of the available options for user label 

processing. 


SYSUT2 DD Statement 


The output data set for IEBGENER, as specified in SYSUT2, can 
contain fixed, variable, undefined, or variable spanned records 
Cexcept partitioned output data sets, which cannot contain 
variable spanned records). These records can be reblocked by 
the specification of a new maximum block length on the SYSUT2 DD 
statement. During reblocking, if the output data set resides on 
a direct access volume: 


e For fixed-length or variable-length records, keys can be 
retained only by using the appropriate user exit. 


e For variable spanned records, Keys can never be retained. 


If the output data set is on a card punch or a printer, you must 
specify DCB information on the SYSUT2 DD statement. CB 
parameters ina SYSUT2 DD statement defining an expanded 
partitioned data set must be compatible with the specifications 
made when the data set was originally created. 


When RECFM, BLKSIZE, and LRECL are not specified in the JCL for 
the output data set, values for each are copied from the input 
data set's DSCB. 


The output block size must always be specified when the logical 
record length and record format Cexcept for U) are specified. 
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SYSIN DD Statement 


The default RECFM is U for the output data set. RECFM must be 
specified when a data set is new, a dummy data set, or a data 
set from a card punch or printer. 


The output LRECL must be specified when editing is to be 
performed and the record format is FB, VS, or VBS. LRECL must 
also be specified when the data set is new, a dummy data set, or 
a data set from a card punch or printer. In all other cases, a 
default LRECL value is generated by IEBGENER. 


If the logical record length of the output data set differs from 
that of the input data set, all positions in the output records 
must undergo editing to justify the new logical record length. 


A partitioned data set cannot be produced if an input or output 
data set contains spanned records. 


IEBGENER cannot produce an output data set having a logical 
record length that differs from the input logical record length 
if both input and output RECFM are V or VB 


IEBGENER will terminate with an unpredictable message or abend 
code if DISP=OLD is specified on a SYSUT2 DD statement making a 
specific volume request for a nonexistent data set. 


The SYSIN DD statement is required for each use of IEBGENER. 
The block size for the SYSIN data set must be a multiple of 80. 
Any blocking factor can be specified for this block size. 


UTILITY CONTROL STATEMENTS 


IEBGENER is controlled by utility control statements. The 
rae a and the order in which they must appear are listed in 
igure : 


Statement Use 


GENERATE Indicates the number of member names and alias names; 
record identifiers, literals, and editing information 
contained in the control data set. 


EXITS Indicates that user routines are provided. 
LABELS Specifies user-label processing. 
MEMBER Specifies the member name and alias of a member of a 


partitioned data set to be created. 


RECORD Defines a record group to be processed and supplies 
editing information. 


Figure 60. IEBGENER Utility Control Statements 


The control statements are included in the control data set as 
required. If no utility control statements are included in the 
control data set, the entire input data set 1S copied 
sequentially. 


When the output is to be sequential and editing is to be 
performed, one GENERATE statement and as many RECORD statements 
as required are used. If user exits are provided, an EXITS 
statement is used. 


When the output is to be partitioned, one GENERATE statement, 
one MEMBER statement per output member, and RECORD statements, 
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as required, are used. If user exits are provided, an EXITS 
statement is used. 


Continuation requirements for utility control statements are a Y 
described in "Continuing Utility Control Statements" on page 5. Cay 
A nonblank character continuation mark in column 72 is optional 

for IEBGENER. 


GENERATE Statement 


The GENERATE statement is required when: (1) output is to be 
partitioned, €2) editing is to be performed, or (3) user 
routines are provided and/or label processing 1s specified. The 
GENERATE statement must appear before any other JTEBGENER utility 
statements. If it contains errors or is inconsistent with other 
statements, IEBGENER is terminated. 


The format of the GENERATE statement is: 


[label] GENERATE [MAXNAME=n] 
[»MAXFLDS=p] 


C[»>MAXGPS=n] 
[,MAXLITS=n] 





EXITS Statement 


The EXITS statement is used to identify exit routines supplied —_ 
by the user. Linkages to and from exit routines are discussed 7 
in Appendix A, "Exit Routine Linkage" on page 422. as 


For a detailed discussion of the processing of user labels as 
data set descriptors, and for a discussion of user label 
totaling, refer to Appendix C, "Processing User Labels"™ on 
page 426. 


The format of the EXITS statement is: 


[label] EXITS [ INHDR=routinename] 
[,OUTHDR=routinenamel]l 
[,INTLR=routinename] 


[,OUTTLR=routinenamel 
[,KEY=routinename] 
[,DATA=routinename]l 
[, TOERROR=routinenamel 
[, TOTAL=(routinename,size) 1 
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LABELS Statement 


MEMBER Statement 


RECORD Statement 


The LABELS statement specifies whether or not user labels are to 
be treated as data by IEBGENER. For a detailed discussion of 
this option, refer to Appendix C, "Processing User Labels™ on 
page 426. 


The LABELS statement is used when you want to specify that: (1) 
no user labels are to be copied to the output data set, (2) user 
labels are to be copied to the output data set from records in 
the data portion of the SYSIN data set, or (3) user labels are 
to be copied to the output data set after they are modified by 
the user's label processing routines. If more than one valid 
LABELS statement is included, all but the last LABELS statement 
are ignored. 


The format of the LABELS statement is: 


[label] LABELS C[DATA=YES|NO]ALL|ONLY| INPUT] 


LABELS DATA=NO must be specified to make standard user labels 
CSUL) exits inactive when input/output data sets with 
nonstandard labels C(NSL) are to be processed. 


The MEMBER statement is used when the output data set is to be 
partitioned. One MEMBER statement must be included for each 
member to be created by IEBGENER. The MEMBER statement provides 
the name and alias names of a new member. 


All RECORD statements following a MEMBER statement pertain to 
the member named in that MEMBER statement. If no MEMBER 
statements are included, the output data set 1s organized 
sequentially. 


The format of the MEMBER statement is: 


[label] MEMBER NAME=(namel,aliasl]...) 


The RECORD statement is used to define a record group and to 
supply editing information. A record group consists of records 
that are to be processed identically. 


The RECORD statement is used when: (1) the output is to be 
partitioned, (2) editing is to be performed, or (3) user labels 
for the output data set are to be created from records in the 
data portion of the SYSIN data set. The RECORD statement 
defines a record group by identifying the last record of the 
group with a literal name. 


If no RECORD statement is used, the entire input data set or 

member is processed without editing. More than one RECORD 

eeaeeuee may appear in the control statement stream for 
EBGENER. 


Within a RECORD statement, one IDENT parameter can be used to 
define the record group; one or more FIELD parameters can be 
used to supply the editing information applicable to the record 
group; and one LABELS parameter can be used to indicate that 
this statement is followed immediately by output label records. 
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The format of the RECORD statement is: 


RECORD [LIDENT=( length» 'name' »input-location)]1 


C[»FIELD=(Clength] 
[,input-location|! "literal '] 


[»conversion] 
[,output-location] )] 


[,LABELS=p] 





Note that the variables on the FIELD parameter are positional; 
that is, if any of the options are not coded, the associated 
comma preceding that variable must be coded. 






Applicable 
Control 









Parameters Statements Description of Parameters 
DATA EXITS DATA=routinename 











specifies the name of the routine that modifies 
the physical record Clogical record for VS or 
VBS type records) before it 18S processed by 
IEBGENER. 


DATA=YES|NOJALLIONLY| INPUT 
specifies whether user labels are to be treated 
as data by IEBGENER. These values can be coded: 


YES 






LABELS 































specifies that any user labels that are not 
rejected by a user's label processing 
routine are to be treated as data. 
Processing of labels as data ends in 
compliance with standard return codes. YES 
is the default. 





specifies that user labels are not to be 
treated as data. In order to make standard 
user label (SUL) exits inactive, NO must be 
specified when processing input/output data 
sets with nonstandard labels (NSL). 





specifies that all user labels in the group 
currently being processed are to be treated 
as data. A return code of 16 causes 
ITEBGENER to complete processing the 
remainder of the group of user labels and 
to terminate the job step. 





specifies that only user header labels are 
to be treated as data. User header labels 
are processed as data regardless of any 
return code. The job terminates upon 
return from the OPEN routine. 


INPUT | 
specifies that user labels for the output 
data set are supplied as 80-byte input 
records in the data portion of SYSIN. The 
number of input records that should be 
treated as user labels must be identified 
by a RECORD statement. 








152 MVS/XA Data Administration: Utilities 




















Applicable 
Control 
Parameters Statements Description of Parameters 


RECORD FIELD=([Llenath],l[input-location|]'literal'], 
[conversion], loutput-location] ) 


specifies field-processing and editing 
information. Only the contents of specified 
fields in the input record are copied to the 
output record; that is, any field in the output 
record that 1s not specified will contain 
meaningless information. 


Note that the variables on the FIELD parameter 
are positional; if any of the options are not 
coded, the associated comma preceding that 
variable must be coded. 





The values that can be coded are: 


length 
specifies the length (in bytes) of the 
input field or literal to be processed. If 
length is not specified, a length of 80 
bytes is assumed. If a literal is to be 
processed, a length of 40 bytes or less 
must be specified. The length cannot 
exceed 8 decimal characters. 


input-location 
specifies the starting byte of the field to 
be processed. input-location should be 
coded as a decimal number. 


Default: Byte 1 is assumed. 
"literal ' 


specifies a literal (maximum length of 40 
bytes) to be placed in the specified output 
location. If a literal contains 
apostrophes, each apostrophe must be 
written as two consecutive apostrophes. 


conversion 
specifies a 2-byte code that indicates the 
type of conversion to be performed on this 
field. If no conversion 18 specified, the 
field is moved to the output area without 
change. The values that can be coded are: 


PZ 
specifies that data Cpacked decimal) 
is to be converted to unpacked decimal 
data. Unpacking of the low-order 
digit and sign may result in an 
alphabetic character. 


ZP 
specifies that data Cunpacked decimal) 
is to be converted to packed decimal 
data. 


HE 
specifies that data (CH-set BCD) is to 
be converted to EBCDIC. 
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Applicable 








Control S sescane ne 
Parameters Statements Description of Parameters a 3 
FIELD RECORD conversion (continued) 
Ccontinued)|] Ccontinued) If conversion is specified in FIELD, the 
following restrictions apply: 
$ PZ-type (Cpacked-to-unpacked) conversion is 
impossible for packed decimal records longer 
than 16K bytes. 
® For ZP-type Cunpacked-to-packed) conversion, 
the normal 32K-byte maximum applies. 
e When the ZP parameter is specified, the 
conversion is performed in place. The 
original unpacked field is replaced by the 
new packed field. Therefore, the ZP 
parameter must be omitted from subsequent 
references to that field. If the field is 
needed in its original unpacked form, it 
must be referenced prior to the use of the 
! ZP parameter. 
| If conversion 1s specified in the FIELD 
parameter, the length of the output record can 
be calculated for each conversion specification. 
When L is equal to the length of the input 
record, the calculation is made, as follows: 
e For a PZ (Cpacked-to-unpacked) specification, 
2L-l. 
e For a ZP Cunpacked-to-packed) specification, - 
(L/2) + C. If L is an odd number, C is 1/2; ae. 
if L is an even number, Cais l. mn P 


@ For an (CH-set BCD to EBCDIC) specification, 
L. 


output-location 
specifies the starting location of this field in 
the output records. output-location should be 
coded as a decimal number. 


The default location is byte l. 


If both output header labels and output trailer 
labels are to be contained in the SYSIN data set, you 
must include one RECORD statement Cincluding the 
LABELS parameter), indicating the number of input 
records to be treated as user header labels and 
another RECORD statement Calso including the LABELS 
parameter) for user trailer labels. The first such 
RECORD statement indicates the number of user header 
labels; the second indicates the number of user 
trailer labels. If only output trailer labels are 
included in the SYSIN data set, a RECORD statement 
must be included to indicate that there are no output 
header labels in the SYSIN data set CLABELS=0). This 
statement must precede the RECORD LABELS=n statement 
cae epee the start of trailer label input 
records. 


For a detailed discussion of the LABELS option, refer 
to Appendix C, “Processing User Labels" on page 426. 
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Applicable 
Control 
Statements Description of Parameters 


| 





| a 
| ; Parameters 


IDENT RECORD IDENT=(length> ‘name’ »pinput-location) 
identifies the last record of the input group to 
which the FIELD parameters of MEMBER statement 
applies. If the RECORD statement is not 
followed by additional RECORD or MEMBER 
statements, IDENT also defines the last record 
to be processed. 


These values can be coded: 


specifies the length (in bytes) of the 
identifying name. The length cannot exceed 
eight decimal characters. 


f 
specifies the exact literal that identifies 
the last input record of a record group. 


‘name! must be coded within single 
apostrophes. 


ame 


Default: If no match for 'name' is found, 
the remainder of the input data is 
considered to be in one record group; 
subsequent RECORD and MEMBER statements are 
ignored. 


input-location 
specifies the starting byte of the field 
that contains the identifying name in the 


input records. input-location should be 


( ; coded as a decimal number. 


Default: If IDENT is omitted, the remainder of 
the input data 1s considered to be in one record 
group; subsequent RECORD and MEMBER statements 
are ignored. 


INHDR EXITS INHDR=routinename 
specifies the name of the routine that processes 
user input header labels. 

INTLR EXITS INTLR=routinename 
specifies the name of the routine that processes 
user input trailer labels. 

IOERROR EXITS ITOERROR=routinename 
specifies the name of the routine that handles 
permanent input/output error conditions. 


KEY EXITS KEY=routinename 
specifies the name of the routine that creates 
the output record key. (This routine does not 
receive control when a data set consisting of 
Variable spanned (VS) or variable blocked 
spanned (VBS) type records is processed because 
ee genre of keys 1s permitted for this type 
oO ata. 
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Applicable ie 
Control A 
Parameters Statements Description of Parameters : 7 : 
LABELS RECORD LABELS=n 
1s an optional parameter that indicates the 
number of records in the SYSIN data set to be 
| treated as user labels. The number n, which is 
a number from 0 to 8, must specify the exact 
number of label records that follow the RECORD 
statement. If this parameter 1s included, 
DATA=INPUT must be coded on a LABELS statement 
before it in the input stream. 


MAXFLDS GENERATE MAXFLDS=n 

specifies a number, from 1 to 4095, that 1s no 
less than the total number of FIELD parameters 
appearing in subsequent RECORD statements. 
MAXFLDS is required if there are any FIELD 
parameters in subsequent RECORD statements. 


MAXGPS GENERATE MAXGPS=n 
specifies a number, from 1 to 2730, that is no 
less than the total number of IDENT parameters 
appearing in subsequent RECORD statements. 
MAXGPS is required if there are any IDENT 
parameters in subsequent RECORD. statements. 
MAXLITS GENERATE MAXLITS=n 
specifies a number, from 1 to 32767, that is no 
less than the total number of characters 
contained in the FIELD literals of subsequent 
RECORD statements. MAXLITS 18 required if the 
FIELD parameters of subsequent RECORD statements 
contain literals. MAXLITS does not apply to eae 
literals used in IDENT parameters. Lowe 
MAXNAME GENERATE MAXNAME=n ad 
specifies a number, from 1 to 3276, that is no 
less than the total number of member names and 
aliases appearing in subsequent MEMBER 
statements. MAXNAME 1s required if there are | 
one or more MEMBER statements. 


NAME MEMBER NAME=(namel,alias]...) 
specifies a member name followed by a list of 
its aliases. Names of multiple members and 
their aliases should be coded as follows: 
(Cnamel,aliasl),(name2,alias2),...) If only one 
name appears in the statement, it need not be 
enclosed in parentheses. 


OUTHDR EXITS OUTHDR=routinename 
specifies the name of the routine that creates 
user output header labels. OUTHDR is ignored if 
the output data set is partitioned. 


OUTTLR EXITS OUTTLR=routinename 
specifies the name of the routine that processes 
user output trailer labels. OUTTLR is ignored 
if the output data set is partitioned. 








= 


a 
% 2 
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Control 


a Applicable 
( Parameters Statements Description of Parameters 


TOTAL TOTAL=(routinename,size) 
specifies that a user exit routine is to be 
provided prior to writing each record. The 
keyword OPTCD=T must be specified for the SYSUT2 
DD statement. TOTAL is valid only when IEBGENER 
1s used to process sequential data sets. These 
values must be coded: 


routinename 
specifies the name of the user-supplied 
totaling routine. 


specifies the number of bytes needed to 
contain totals, counters, pointers, etc. 
size should be coded as a decimal number. 





TEBGENER EXAMPLES 


The examples that follow illustrate some of the uses of 
ITEBGENER. Figure 61 can be used as a quick-reference guide to 
IEBGENER examples. The numbers in the "Example™ column refer to 
the examples that follow. 


| Data Set _ 
| ene Operation Organization Device Comments Example 
( COPY Sequential Card Reader and Blocked output. 1 
Tape 
: COPY-—with Sequential Card Reader and Blocked output. 2 
editing Tape 


Copy and Sequential Disk and Tape Makes blocked tape 
reblock copy from disk; 
explicit buffer 
request. 
COPY-with Sequential Card Reader and Blocked output. Input G 
editing Tape includes //cards. 
| COPY-with Sequential Card Reader and Blocked output. Input 5 
editing Disk includes // cards. 
PRINT Sequential Card Reader and Input includes // 
Printer cards. System output 
device 1s a printer. 
CONVERT Sequential Tape and Disk Blocked output. Three 
input, members are to be 
Partitioned created. 
output 


COPY-with Sequential Disk Blocked output. Two 
members are to be 
merged into existing 
data set. 


editing 
Figure 61 (Part 1 of 2). JEBGENER Example Directory 
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Data Set. 
Operation Organization Device Comments 
COPY-with Sequential Tape Blocked output. Data 
editing | 


set edited as one 
record group. 
COPY—with Sequential Disk 
editing 
ie 


Blocked output. New 
Figure 61 CPart 2 of 2). IEBGENER Example Directory 


iit. 
= 
wae 


Examples that use disk or tape in place of actual device numbers 
must be changed before use. See "DASD and Tape Device Support" 
on page 3 for valid device number notation. 




























record length 
specified for output 

data set. Two record 
groups specified. 


Blocked output. Data 
set edited as one 
record group. 










COPY—-with 
editing 






TEBGENER EXAMPLE 1 


In this example, a card-input, sequential data set is copied to 
a 9-track tape volume. 


The example follows: 


//CDTOTAPE JOB... 

// EXEC PGM=IEBGENER 

//SYSPRINT DD SYSOUT=A 

“/SYSIN DD DUMMY 

//SYSUT2 DD DSNAME=OUTSET,UNIT=tape,LABEL=(,5L), 
// DISP=(, KEEP), VOLUME=SER=001234, 


// DCB=CRECFM=FB,LRECL=80, BLKSIZE=2000) 
//SYSUT1 DD XxX 


Cinput card data set) 
1% 





The job control statements are discussed below: 


e SYSIN DD defines a dummy data set. No editing is performed; 
therefore, no utility control statements are needed. 


@ SYSUT2 DD defines the output data set, OUTSET. The data set 
is written to a tape volume with IBM standard labels. The 
a set is to reside as the first Cor only) data set on the 
volume. 


e SYSUT1 DD defines the card-input data set. The data set 
contains no // or /xX cards. 
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IEBGENER EXAMPLE 2 


IEBGENER EXAMPLE 3 





In this example, a card-input, sequential data set is to be 
copied to a tape volume. The control data set 1S a member of a 
partitioned data set. 


//CDTOTAPE JOB... 

7 EXEC PGM=IEBGENER 

/7SYSPRINT DD SYSOUT=A 

S/SYSIN DD DSNAME=CNTRLIBYCSTMNTS),UNIT=disk, 
7 DISP=COLD, KEEP), VOLUME=SER=111112, 
// DCB=CRECFM=F,LRECL=80, BLKSIZE=80) 
SASYSUT2 DD DSNAME=OUTSET,UNIT=tape,LABEL=(,5L), 
1/7 


DCB=C(RECFM=FB,LRECL=80,BLKSIZE=2000), 
// DISP=(€,KEEP), VOLUME=SER=001234 
//SYSUTI1 DD xX 
Cinput card data set) 


1% 





The job control statements are discussed below: 


e SYSIN DD defines the control data set, which contains the 
utility control statements. The control statements reside 


as a member, STMNTS, ina partitioned data set called 
CNTRLIBY. 


e SYSUT2 DD defines the output data set, OUTSET. The data set 
is written as the first data set on the tape volume. 


e SYSUT1 DD defines the card-input data set. Because SYSUT1 
has ees been specified as DATA, the data set can contain no 
// cards. 


In this example, a blocked copy on tape is made from an 
unblocked sequential disk file. Because the disk data set has a 
relatively small block size, the number of buffers explicitly 
requested is larger than the default of five. This improves 
performance by permitting more overlap of reading the SYSUTI1 
data set with writing the SYSUT2 data set. 


//COPYJOB JOB 

7 EXEC PGM=ITEBGENER, REGION=318K 
/7SYSPRINT DD SYSOUT=A 

S/SYSIN DD DUMMY 

S/SYSUTI DD DSNAME=X.FILE,UNIT=3380, 


ff DISP=OLD,VOL=SER=X13380, 

// DCB=( BUFNO=20,RECFM=FB,LRECL=2000, BLKSIZE=2000 
//SYSUT2 DD DSNAME=X.FILE.TAPEVER, UNIT=3480, 

// DISP=CNEW, KEEP), 

// DCB=CRECFM=FB,LRECL=2000, BLKSIZE=320)0) 





The job control statements are discussed below: 

e The EXEC statement names the IEBGENER program and specifies 
the virtual storage region size required. (Calculation of 
region size is described in "EXEC Statement™ on page 147.) 


e The SYSPRINT DD statement directs messages to SYSOUT class 
A. 
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e The SYSIN DD statement is a dummy, indicating no utility 
control statements are to be used, and thus no editing is ‘ 
performed. ec 


® The SYSUT1 DD statement identifies an input disk file. 
Normally, the DCB RECFM, LRECL, and BLKSIZE information 
should not be specified in the DD statement for an existing 
disk file because the information exists in the data set 
label in the VTOC; it is specified in this example to 
illustrate the contrast with the output data set. The unit 
and volume serial information could be omitted if the data 
set were cataloged. The DCB information specifies BUFNO=20 
to allow up to twenty blocks to be read with each rotation 
- the disk, assuming the disk track will hold that many 

ocks. 


e The SYSUT2 DD statement identifies the output tape data set 
and specifies a block size of 32K bytes. Because BLKSIZE is 
specified for the DCB, RECFM and LRECL must also be 
specified explicitly; otherwise they will default to the 
IEBGENER program defaults instead of being copied from the 
SYSUT1 DD statement. The default of five buffers should be 
enough to Keep pace with the input. The tape is to be 
dismounted at the termination of this job step. 


IEBGENER EXAMPLE 4 


In this example, a card-input, sequential data set 1s copied to 
a tape volume. The input contains cards that have slashes (//) 
in columns 1 and 2. The control data set 1s a member of a 
partitioned data set. 


//CDTOTAPE JOB 

// EXEC PGM=IEBGENER 

//SYSPRINT DD SYSQUT=A 

Z/SYSIN DD DSNAME=CNTRLIBYCSTMNTS),UNIT=disk, 

// DISP=COLD, KEEP), VOLUME=SER=111112 
7/SYSUT2 DD DSNAME=OUTSET,UNIT=tape, LABEL=(2,5L), 


// VOLUME=SER=001234, DCB=CRECFM=FB,LRECL=80, 
S/ BLKSIZE=2000), DISP=C, KEEP) 
//SYSUTI DD DATA 


Cinput card data set, including // cards) 


/*® 





The job control statements are discussed below: 


@ SYSIN DD defines the data set containing the utility control 
statements. The statements reside as a member, STNMNTS, ina 
partitioned data set called CNTRLIBY. 


e SYSUT2 DD defines the copied sequential data set Coutput), 
called OUTSET. The data set is written as the second data 
set on the specified tape volume. 


e SYSUT1 DD defines the card-input data set. The data set is 
to be edited as specified in the utility control statements 
(not shown). The input data set contains // cards. 
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IEBGENER EXAMPLE 5 


In this example, a card-input, sequential data set 1S copied to 
a disk volume. The input data set contains // cards. 





//CDTODISK JOB... 

47 EXEC PGM=IEBGENER 

//SYSPRINT DD SYSOUT=A 

“/SYSIN DD DSNAME=CNTRLIBYCSTMNTS),UNIT=disk, 

/ DISP=COLD, KEEP), VOLUME=SER=111112 
S/SYSUT2 DD DSNAME=OUTSET,UNIT=disk, VOLUME=SER=111113, 
// 


DISP=(,KEEP),SPACE=C(TRK,(€10,10)3, 
// DCB=CRECFM=FB,LRECL=80, BLKSIZE=2000) 
//SYSUTI DD DATA 


Cinput card data set, including // cards) 


1% 





The job control statements are discussed below: 


e SYSIN DD defines the control data set, which contains the 
utility control statements. The control statements reside 
as a member, STMNTS, in a partitioned data set. 


® SYSUT2 DD defines the output data set. Ten tracks of 
primary storage space and ten tracks of secondary Space are 
allocated for the data set on a disk volume. 


e SYSUT1 DD defines the card-input data set. The data set is 
goon to be edited as specified in the utility control statements 
( | (not shown). 


IEBGENER EXAMPLE 6 


In this example, the content of a card data set is printed. The 
printed output is left-aligned, with one 80-byte record 
appearing on each line of printed output. 


//CDTOPTR JOB... 

// EXEC PGM=IEBGENER 
/7SYSPRINT DD SYSOUT=A 
“73YSIN DD DUMMY 


S/SYSUT2 DD SYSOUT=A,DCB=C(RECFM=F,LRECL=80,BLKSIZE=80) 
S/SYSUTI1 DD DATA 

Cinput card data set, including // cards) 

7% 





The job control statements are discussed below: 


e SYSIN DD defines a dummy data set. No editing is performed; 
therefore, no utility control statements are required. 


@ SYSUT2 DD indicates that the output is to be written on the 
system output device Cprinter). Carriage control can be 
specified by changing the RECFM=F subparameter to RECFM=FA. 


e SYSUT1 DD defines the input card data set. The input data 
( set contains // cards. 
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ITEBGENER EXAMPLE 7 
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In this example, a partitioned data set (consisting of three 
members) is created from sequential input. 


//TAPEDISK JOB 


L/ EXEC PGM=IEBGENER 


//SYSPRINT DD 
S/SYSUTI DD 


// 
//SYSUT2 =D 
// 
// 


“/SYSIN DD 
GENERATE 
MEMBER 

GROUP1 RECORD 
MEMBER 

GROUP2 RECORD 
MEMBER 


1% 


SYSOUT=A 
DSNAME=INSET,UNIT=tape,LABEL=(,SL), 
DISP=COLD, KEEP), VOLUME=SER=001234 
DSNAME=NEWSET, UNIT=disk, DISP=(,KEEP), 
VOLUME=SER=111112,SPACE=CTRK, (10,5,5)), 
DCB=CRECFM=FB,LRECL=80, BLKSIZE=2000) 

x 


MAXNAME=3,MAXGPS=2 
NAME=MEMBERI 

IDENT=(8, 'FIRSTMEM', 1) 
NAME=MEMBER2 

IDENT=(€8, 'SECNDMEM',1) 
NAME=MEMBER3 





The control statements are discussed below: 


SYSUT1 DD defines the 
is the first data set 


SYSUT2 DD defines the 
The data set is to be 
of primary space, 
blocks (256 bytes each) of directory space are allocated to we 
allow for future expansion of the data set. c 

records are blocked to reduce the space required by the data « J 


set. 


SYSIN DD defines the control data set, 
input stream. 
create members from sequential input data; 


input data set CINSET). 
on a tape volume. 


output partitioned data set (CNEWSET). 
placed on a disk volume. Ten tracks 
five tracks of secondary space, and five 


The data set 


ie 


The output 


Mis. 3 


which follows in the 
The utility control statements are used to 
the statements do 


not specify any editing. 


GENERATE indicates that: 


(1) three member names are 


included in subsequent MEMBER statements and (2) the IDENT 
parameter appears twice in subsequent RECORD statements. 


The first MEMBER statement assigns a member name (CMEMBERL) 
to the first member. 


The first RECORD statement CGROUP1) identifies the last 


record to be placed in the first member. 


The name of this 


record CFIRSTMEM) appears in bytes 1 through 8 of the input 


record. 


The remaining MEMBER and RECORD statements define the second 


and third members. 
statement associated with the third MEMBER statement, 


Note that, as there is no RECORD 
the 


remainder of the input file will be loaded as the third 


member. 
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IEBGENER EXAMPLE 8 


In this example, sequential input is converted into two 


partitioned members. 
an existing partitioned data set. 


set are passed to the user exit routine. 


//DISKTODK JOB 


oy, EXEC PGM=IEBGENER 


//SYSPRINT DD 
//SYSUTI DD 
4/7 


17 
7/SYSUT2? DD 

17 
S/7SYSIN DD 
GENERATE 
EXITS 
MEMBER 
GROUP] RECORD 
MEMBER 

7® 


SYSOUT=A 

DSNAME=INSET,UNIT=disk, DISP=(OLD,KEEP), 
VOLUME=SER=111112, 

LABEL=(€, SUL) 


DSNAME=EXISTSET,UNIT=disk, DISP=(MOD, KEEP), 


VOLUME=SER=111113 


x 

MAXNAME=3,MAXGPS=1 
INHDR=ROUT1,INTLR=ROUT2 
NAME=CMEMX, ALIASX) 
IDENT=(8, *FIRSTMEM', 1) 
NAME=MEMY 


The control statements are discussed below: 


e SYSUT1 DD defines the input data set CINSET). 
data set, which resides on a disk volume, 
user labels. 


e SYSUT2 DD defines the output partitioned data set 


CEXISTSET). 


The members created during this job step are 


merged into the partitioned data set. 


@ SYSIN DD defines the control data set, which follows in the 


input stream. 


The utility control statements are used t 
create members from sequential input data; 


not specify any editing. 


e GENERATE indicates that: 


The input 
has standard and 


The newly created members are merged into 
User labels on the input data 


the statements do 


(1) a maximum of three names and 


aliases are included in subsequent MEMBER statements and (2) 
one IDENT parameter appears in a subsequent RECORD 


statement. 


e EXITS defines the user routines that are to process user 


labels. 


e The first MEMBER statement assigns a member name (MEMX) and 
an alias CALIASX) to the first member. 


e The first RECORD statement CGROUP1) identifies the last 


record to be placed in the first member. 


The name of this 


record CFIRSTMEM) appears in bytes 1 through 8 of the input 


record. 


® The second MEMBER statement assigns a member name CMEMY) to 


the second member. 


included in this member. 
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The remainder of the input data set is 
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IEBGENER EXAMPLE 9 


In this example, a sequential input data set is edited and 
copied. 


STEN JOB 


EXEC PGM=IEBGENER 


17 SYSPRINT DD 
4/SYSUT1 “DD 


// 
S/SYSUT2 DD 
// 


Jf 
S7SYSIN DD 
GENERATE 
RECORD 


EXITS 
LABELS 
RECORD 


(first header 


SYSOUT=A 

DSNAME=OLDSET,UNIT=tape, DISP=COLD,KEEP), 
VOLUME=SER=001234,LABEL=(3,5SL) 
DSNAME=NEWSET,UNIT=tape, DISP=(NEW,PASS), 
DCB=CRECFM=FB,LRECL=80,BLKSIZE=2000), 
VOLUME=SER=001235,LABEL=(,5SL) 

xX 


MAXFLDS=3,MAXLITS=I11 

FIELD=C10, 'XXXXXXXXXX',, 1), 
FIELD=(€5,1,HE,11),FIELDHC1,'="',,16) 
INHDR=ROUT1,OUTTLR=ROUT2 

DATA=INPUT 

LABELS=2 


label record) 


(second header label record) 


RECORD 


LABELS=2 


(first trailer label record) 
(second trailer label record) 


7% 





The control statements are discussed below: ee 
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SYSUT1 DD defines the sequential input data set COLDSET). 
The data set was originally written as the third data set on 
a tape volume. 


SYSUT2 DD defines the sequential output data set CNEWSET). 
The data set is written as the first data set ona tape 
volume. The output records are blocked to reduce the space 
required by the data set and to reduce the access time 
required when the data set is subsequently referred to. The 
data set 1s passed to a subsequent job step. 


SYSIN DD defines the control data set, which follows in the 
input stream. 


GENERATE indicates that: (1) a maximum of three FIELD 
parameters 1s included in subsequent RECORD statements and 
C2) a maximum of 11 literal characters are included in 
subsequent FIELD parameters. 


The first RECORD statement controls the editing, as follows: 
(1) asterisks are placed in positions 1 through 10, (2) 
bytes 1 through 5 of the input record are converted from 
H-set BCD to EBCDIC mode and moved to positions 11 through 
15, and €3) an equal sign is placed in byte 16. 


EXITS indicates that the specified user routines require 
control when SYSUT1 is opened and when SYSUT2 is closed. 


LABELS indicates that labels are included in the input 
stream. 


The second RECORD statement indicates that the next two 
records from SYSIN should be written out as user header 
labels on SYSUT2. 
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@ The third RECORD statement indicates that the next two 
records from SYSIN should be written as user trailer labels 
on SYSUT2. 


This example shows the relationship between the RECORD LABELS 
statement, the LABELS statement, and the EXITS statement. 
IEBGENER attempts to write a first and second label trailer as 
user labels at close time of SYSUT2 before returning control to 
the system; the user routine, ROUT2, can review these records 
and change them, if necessary. 
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In this example, a sequential input data set 1s edited and 
copied. 


//DISKDISK JOB... 
17 EXEC PGM=IEBGENER 


//SYSPRINT DD 
4/SYSUTI DD 
/7 
//SYSUT2 DD 
Sf 
// 
S/SYSIN DD 
GENERATE 
EXITS 
GROUP1 RECORD 


SYSOUT=A 

DSNAME=OLDSET,UNIT=disk, DISP=COLD,KEEP), 
VOLUME=SER=111112 
DSNAME=NEWSET, UNIT=daisk, DISP=C(NEW,KEEP), 
VOLUME=SER=111113,DCB=CRECFM=FB,LRECL=80, 
BLKSIZE=640),SPACE=CTRK, €20,10)) 

x 

MAXFLDS=4,MAXGPS=1 

TOERROR=ERRORRT 

IDENT=(€8,"FIRSTGRP!, 


)> 
FIELD=(21,80,,60),FIELD 
ELD 


5 
FIELD=(11,90,,70),FI 6 


9,1,,1) 
9,1,,1) 


=( 
GROUP2 RECORD =( 
7% 





The control statements are discussed below: 
e SYSUT1 DD defines the input data set COLDSET). 


e SYSUT2 DD defines the output data set CNEWSET). Twenty 
tracks of primary storage space and ten tracks of secondary 
storage space are allocated for the data set ona disk 
volume. The logical record length of the output records is 
80 bytes, and the output is blocked. 


e SYSIN DD defines the control data set, 
input stream. 


e GENERATE indicates that: (1) a maximum of four FIELD 
parameters are included in subsequent RECORD statements and 
(2) one IDENT parameter appears in a subsequent RECORD 
statement. 


which follows in the 


e EXITS identifies the user routine that handles input/output 
errors. 


e The first RECORD statement (GROUPI1) controls the editing of 
the first record group, as follows: (1) FIRSTGRP, which 
appears in bytes 1 through 8 of an input record, is defined 
as being the last record in the first group of records and 
(2) bytes 80 through 100 of each input record are moved into 
positions 60 through 80 of each corresponding output record. 
(This example implies that bytes 60 through 79 of the input 
records in the first record group are no longer required; 
thus, the logical record length is shortened by 20 bytes.) 
The remaining bytes within each input record are transferred 
directly to the output records, specified in the second 
FIELD parameter. 
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e The second RECORD statement (CGROUP2) indicates that the 
remainder of the input records are to be processed as the 
second record group. Bytes 90 through 100 of each input 
record are moved into positions 70 through 80 of the output 


records. 


(This example implies that bytes 70 through 89 of 


the input records from group 2 are no longer required; thus, 
the logical record length is shortened by 20 bytes.) The 
remaining bytes within each input record are transferred 
directly to the output records, specified in the second 
FIELD parameter. 


If the logical record length of the output data set differs from 


that of the input data set (as in this example), all positions 
in the output records must undergo editing to justify the new 
logical record length. 


IEBGENER EXAMPLE 11 


166 


In the example, a sequential input data set is edited and 


copied. 


//TAPETAPE JOB 
// 


47 SYSPRINT 
//SYSUT1 


Sf 
//SYSUT2 
17 

tf 
//SYSIN 


EXEC PGM=IEBGENER 

DD SYSOUT=A 

DD DSNAME=OLDSET,UNIT=tape, DISP=COLD,KEEP), 
VOLUME=SER=001234, LABEL=(€3,5UL) 

DD DSNAME=NEWSET,UNIT=tape, DISP=(NEW,PASS), 
VOLUME=SER=001235,LABEL=(€,SUL), 

ad DCB=CRECFM=FB,LRECL=80, BLKSIZE=2000) 
% 


GENERATE MAXFLDS=3,MAXLITS=11 
RECORD FIELD=C10, "XXXXXXXXXX',,1), 
FIELD=€5,1,HE,11),FIELD=(1,'=',,16) 


LABELS DATA=INPUT 
RECORD LABELS=3 


(first header label record) 
(second header label record) 
(third header label record) 


RECORD LABELS=2 


(first trailer label record) 
(second trailer label record) 


1X 





The control statements are discussed below: 


e SYSUT1 DD defines the input data set (OLDSET). The data set 
is the third data set on a tape volume. 


@ SYSUT2 DD defines the output data set (NEWSET). The data 
set is written as the first or only data set on a tape 


volume. 

required 
required 
data set 


e SYSIN DD 


The output records are blocked to reduce the space 
by the data set and to reduce the access time 

when the data set 1s subsequently referred to. The 
is passed to a subsequent job step. 


defines the control data set, which follows in the 


input stream. 


e GENERATE 


indicates that: (€1) a maximum of three FIELD 


parameters are included in subsequent RECORD statements and 
C2) a maximum of 11 literal characters are included in 
subsequent FIELD parameters. 
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The first RECORD statement controls the editing, as follows: 
(1) asterisks are placed in positions 1 through 10, (2) 
bytes 1 through 5 of the input record are converted from 
H-set BCD to EBCDIC mode and moved to positions ll through 
15, and €3) an equal sign is placed in byte 16 


LABELS indicates that label records are included in the 
input stream. 


The second RECORD statement indicates that three 80-byte 
records (cards), to be written as user labels on the output 
data set, immediately follow. 


The third RECORD statement indicates that the following 
cards are to be treated as trailer labels. 
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TEBIMAG OGRA 


GENERAL INFORMATION 


STORAGE REQUIREMENTS 


For IEBIMAGE 


IEBIMAGE is a data set utility that creates and maintains the 
following types of IBM 3800 Printing Subsystem and IBM 4248 
Printer modules and stores them ina library: 


° Forms control buffer modules for the 3800 and 42498 that 
specify controls for the vertical line spacing and any one 
of 12 channel codes per line. 


e Copy modification modules for the 3800 that specify data 
that is to be printed on every page for specified copies of 
the output data set. 


° Character arrangement table modules for the 3800 that 
translate the input data into printable characters and 
identify the associated character set(s) and graphic 
character modification module(s). 


e Graphic character modification modules for the 3800 that 
contain the scan patterns of user-designed characters and/or 
characters from IBM-supplied modules. 


6 Library character set modules for the 3800 that contain the 
scan patterns of IBM-supplied character sets and/or 
user-defined character sets. 


The IEBIMAGE program creates and maintains all modules required 
for use on the 3800 Model 1 and Model 3 printers. The program 
default is to build these modules in the 3800 Model 1 format; 
however, 3800 Model 3 compatibility can be specified with 
IEBIMAGE utility control statements. 


ITEBIMAGE can also be used to create and maintain FCB modules for . 


the 4248 printer. 


See ee O20c Model SP rinter a ee 


The 4248 FCB modules created by IEBIMAGE are compatible with the 
3262 Model 5 Printer; however, the 3262 Model 5 does not support 
variable printer speeds or the horizontal copy feature of the 
4248. Unless otherwise stated, where a reference to the 4248 
printer 1s used in this chapter, the 3262 Model 5 can be 
substituted. 


bmn End of 3262 Model 5 Printer ——! 


The IEBIMAGE utility program is IBM-supplied and requires 
pageable virtual storage in which to operate. The storage 
needed by IEBIMAGE is given by the formula: 


Storage requirements Cin bytes) = 44K+4B+H 


B The largest block size in the job step, rounded to the 
next highest multiple of 2K. If the format specified 


for the data set is VS, and LRECL is less than 32K, then # > 


B is the maximum logical record length, rounded to the 
next highest multiple of 2K. 
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| H The size of the largest member to be loaded from 
| " SYS1L.IMAGELIB, rounded to the next highest multiple of 


| ( | 2K. 


K 1024 bytes. 


For SYS1.IMAGELIB 


The auxiliary storage requirement in tracks for SYS1.IMAGELIB 
is: 


Number of tracks = CAt+B)/T 


A The number of 1403 UCS images, 3211 UCS images, 3211 FCB 
images, 3525 data protection images, 3890 SCI programs, 
3800 FCB modules, 4248 FCB images, 3262 Model 5 FCB 
images, and 3800 character arrangement tables (both 
IBM-supplied and user-defined images or modules, as 
applicable). 


If the appropriate printer is in the system, IBM 
supplies twelve 1403 UCS images, five 3211 UCS images, 
four 3211 FCB images, one 3800 FCB image, one 4245 UCS 
image table, one 4248 UCS image table, and fourteen 3800 
character arrangement tables. According to the TABLE 
parameter coded on the DATAMGT system generation macro, 
IBM supplies the following number of additional 
character arrangement tables: 


e 5 if T3211 is specified 

° 13 if 71403 is specified 

e 10 if TOCR is specified 
( © 3 if TKAT is specified 
po ¢ 3 if TFMT is specified 


If TABLE = ALL is coded, add all the above numbers. If 

ALL, T32ll, or 71403 is coded, add two more tables for 

the GRAFSPC1 and GRF2SPC1l graphic character modification 
| modules. 


Note that IBM supplies no 4245 or 4248 UCS images in 
SYS].IMAGELIB. The 4245 and 4248 printers load their 
own UCS images into the UCS buffer at power-on time. 
IBM does supply 4245 and 4248 FCB images; which may be 
used. For more information on printer-supplied UCS or 
FCB images, see System—Data Administratio 


B (V+600)/1500 for each 3800 graphic character 
modification module and library character set module, 
each 3800 copy modification module, 4245 UCS image 
table, 4248 UCS image table, and each 3890 SCI program 
that 1s more than approximately 600 bytes. Vis the 
Virtual storage requirement in bytes for each module. 
The virtual storage requirements for the IBM-supplied 
3800 graphic character modification module containing 
the World Trade National Use Graphics are 32420 bytes 
for Model 1 and 55952 bytes for Model 3. The virtual 
storage requirements for the IBM-supplied 3800 library 
character sets for the Model 1 are 4680 bytes and 8064 
bytes for the Model 3. 


T The approximate number of members per track, depending 
on type of volume. Because of the overhead bytes and 
blocks ina load module, the difference in space 
requirements for an 80-byte module and a 400-byte module 
1s small. These constants assume an average member of 8 
blocks, including a file mark, with a total data length 
of 800 bytes. For example, ona 3380 with 523 bytes of 
block overhead, the assumed average is 4984 bytes. If a 
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different average member data length and average number 

of blocks per member are anticipated, these constants ete 
should reflect the actual number of members per track. ‘ \ 
To determine the number of members per track, divide the \ / 
average member length, including block overhead, into 


the track capacity for the device. (Track capacity for 
DASD is discussed in Data Administration: Macro 
Instruction Reference.) 
T = 6 for a 2305-2 

? for a 3330 or a 3330-11 

4 for a 3340 or 3344 

8 for a 3350 

8 for a 3375 

9 for a 3380 Models AEG and BES 

9 for a 3380 Models ADS and BD4 


The result, CA+B)/T, is the track requirement. 


The number of directory blocks for SYS1.IMAGELIB is given by the 
formula: 


Number of directory blocks = CA+C+D)/6 
As calculated to determine the track requirement, above. 


Cc The number of modules used to calculate B, when 
calculating the track requirement. 


D The number of aliases. The IBM-supplied 1403 UCS images 
have four aliases and the IBM-supplied 3211 UCS images 
have six aliases. If they will not be used, these 
aliases can be scratched after system generation. 


MAINTAINING THE SYS1.IMAGELIB DATA SET 


You will normally maintain SYS1.IMAGELIB using several programs 
in conjunction with IEBIMAGE. For example, you may find it 
necessary to rename or delete modules or to compress or list the 
entire contents of the data set. Utility programs such as 
ITEBCOPY, IEBPTPCH, IEHLIST, IEHMOVE, and IEHPROGM Cas described 
an this book) and HMASPZAP or AMASPZAP Cas described in Service 
Aids) should be used to help maintain SYS]1.IMAGELIB. 


x 
»! 


If you use programs other than IEBIMAGE for maintenance, you 
must specify the full module name. The module's full name 
consists of a 4-character prefix followed by its l- to 
G-character user-assigned name. It is thus a 5- to 8-character 
member name in the form: 


FCB2xxxx, which identifies an FCB module that may be used 
with a 3203, 3211, 3262 Model 5, 4248, or 4245 printer. 
Note that the 4248 accepts FCBs that will also work with a 
3203, 3211, 3262 Model 5, or 4245 printer. 

FCB3xxxx, which identifies a 3800 FCB module 


FCB4xxxx, which identifies an FCB module that may be used 
with a 4248 or 3262 Model 5 printer 


MODIxxxx, which identifies a 3800 copy modification module 


XTBlxxxx, which identifies a 3800 character arrangement 
table module 


GRAFxxxx, which identifies a graphic character modification 
module for a 3800 Model 1 


GRF2xxxx, which identifies a graphic character modification 
module for a 3800 Model 3 





LCSInn, which identifies a library character set module for 
a 3800 Model 1 
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LCS2nn, which identifies a library character set module for 
a 3800 Model 3 


where: 
is the l- to 4-character usSer-assigned name of the module. 


is the 2-character user-assigned ID of the module. 


Alias names are not supported by IEBIMAGE, so you should be 
careful if you use them. For example, if you change a module by 
specifying its alias name, the alias name becomes the main name 
of the new module, and the old module is no longer accessible 
via the alias but is still accessible via its original main 
name. | 


GENERAL MODULE STRUCTURE 


Each module contains eight bytes of header information preceding 
the data. For the 3800 printing subsystem, the general module 
header is shown in Figure 62. 






Length (in hexadecimal) of module, excluding the 
8 bytes of header information 


Reserved - (X‘0000’) 
A 1- to 4-character identification of the module, 


left-justified (excluding the system-assigned prefix) 


Figure 62. 3800 General Module Header 


Header information for the 4248 printer FCB module is shown, 
with the module format, in Figure 64 on page 174. 


The SETPRT SVC uses the name to: 

@ Identify the module in the image library 
e Store the name in the UCB extension 

The SETPRT SVC uses the length to: 

e Obtain sufficient storage for the module 


® Build channel programs to load the data into the printer 
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NAMING CONVENTIONS FOR MODULES 


USING IEBIMAGE 


Each module placed ina library by the IEBIMAGE utility has a ee \ 
4G-character system-assigned prefix as the first part of its “a Y 


name. These prefixes are: 
FCB3 for 3800 forms control buffer modules 
FCB4 for 3262 Model 5 and 4248 forms control buffer modules 
MOD1 for 3800 copy modification modules 
XTB1 for 3800 character arrangement table modules 


GRAF for graphic character modification modules for a 3800 
Model 1 


GRF2 for graphic character modification modules for a 3800 
Model 3 


LCS1 for library character set modules for a 3800 Model 1 
LCS2 for library character set modules for a 3800 Model 3 


You can assign a 1l- to 4-character identifier (name) to the 
module you create by using the NAME control statement in the 
operation group you use to build the module. If the module is a 
library character set, the ID assigned to it must be exactly two 
characters. Each of those characters must be within the range 0 
through 9, and A through F; the second character must represent 
an odd hexadecimal digit. However, the combinations X'7F! and 
X'FF' are not allowed. Except for library character set 
modules, this identifier is used in the JCL, the SETPRT 
parameter, or the character arrangement table to identify the 
module to be loaded. , 


While IEBIMAGE refers only to the 1- to G-character name or the 
2-character ID (the suffix) that is appended to the prefix, the 
full name must be used when usSing other utilities (such as 
ITEBPTPCH or IEHPROGM). 


CREATING A FORMS CONTROL BUFFER MODULE 


The forms control buffer CFCB) module is of variable length and 
contains vertical line spacing information (6, 8, or 12 lines 
per inch for the 3800 Model 1; 6 or 8 lines per inch for the 
42498; and 6, 8, 10, or 12 lines per inch for the 3800 Model 3). 
The FCB module can also identify one of 12 carriage-control 
channel codes for each line. For the 4248 printer, the module 
also contains information on the horizontal copy feature and the 
printer speed. 


The FCB module is created and stored in an image library, using 
the FCB and NAME utility control statements of the IEBIMAGE 
program. For the 42498 FCB module, the INCLUDE and OPTION 
statements can also be coded to indicate that an existing FCB 
module Cprefix FCB2 or FCB4) is to be uSed as a model. 


For the 3800, IBM supplies one default FCB image in 
SYS1.IMAGELIB, called FCB3STD1. For the 4248, although the last 
FCB image loaded is reloaded by the printer at power-on time, 


IBM supplies two FCB images that may also be used by printers 


other than the 4298. For the 3262 Model 5, a default FCB image 
1s also supplied. 
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3800 FCB Module Structure 


The FCB data following the header information 1s a series of 
l-byte line control codes for each physical line of the form. 


There are 18 to 144 of these bytes, depending on the length of 
the form. 


Each byte is a bit pattern describing one of 12 channel codes 
for vertical forms positioning and one of four lines-per-~inch 


codes for vertical line spacing. The structure of the 3800 FCB 
module 1s shown in Figure 63. 


Bit Pattern 





Reserved Channel Code 

(OO) 
Binary Hex Channel 
0000 0 ~ (null) 

Line Spacing (LPI) 0001 | 1 

00 = 6 LPI 0010 2 2 

01 = 8 LPI 0011 3 3 

10 = 10 LPI 0100 4 4 

11 = 12 LPI 0101 5 5 
0110 6 6 
O11! 7 7 
1000 8 8 
1001 9 9 
1010 A 10 
1011 B 11 
1100 Cc 12 


Figure 63. 3800 FCB Module Structure 


e The top and bottom 1/2 inch of each page are unprintable, 
and the bytes corresponding to these positions must be void 


of any channel codes. Three bytes of binary zeros are 
supplied by the IEBIMAGE utility for the top and bottom 1/2 
inch. 


@ The total number of lines defined in the module must be 
equal to the length of the form. The printable lines 
defined must start 1/2 inch below the top and stop 1/2 inch 
from the bottom of the form. 


4248 FCB Module Structure 





The FCB data following the header information consists of at 
least five bytes: a flag byte (X'7E"), a control byte 
(containing information about the horizontal copy feature and 
printer speed), an offset byte, one or more FCB data bytes 
(similar to the 3800 data byte for each physical line of the 
form), and an end-of-sheet byte (X'FE'). The format of the 42498 
FCB module is shown in Figure 64 on page 174. 
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Header rs 


oft ztsfe[sfo 

End of sheet (X‘FE’) 

Data Byte 

Offset Byte 

Control Byte 

Flag Byte (X‘7E’) 

‘Length (in hexadecimal) of 

module, excluding the 3 

bytes of header information 

Flag Byte: X‘00’ = Non-default image 

X‘80’ = Default image 
Figure 64. 424948 FCB Module Structure 
The control byte is a bit pattern describing whether the 
horizontal copy feature is active and what printer speed is to 
be set when the FCB is loaded into the buffer. The structure of 
the control byte is shown in Figure 65. 
Bit Pattern eg e 


op aps ser 
Stacker Drop Rate!»? 


Printer Speed (PSPEED)2 
00 = Unchanged 
01 = Low (2200 LPM) 
10 = Medium (3000 LPM) 
11 = High (3600 LPM) 


Horizontal Copy Feature 
0 = Deactivate 
1 = Activate 


Stacker Level Control!» 


: Reserved (X‘0’) 
Figure 65. 4248 FCB Module Control Byte 


Notes to Figure 65: 


1 IEBIMAGE sets these bits to zero. For more information on 
the stacker drop rate and stacker level control bits, see 
the appropriate hardware manual for your printer. 


& If the module is used by a 3262 Model 5 printer, these bits 
are ignored. 





The offset byte follows the control byte and is set either to 
aeae or to the print position of the horizontal copy (2 through 


174 MVS/XA Data Administration: Utilities 

















FCB Module Listing 


The data byte is a bit pattern similar to that produced for the 
3800 printing subsystem. Each data byte describes one of 12 
channel codes for vertical forms positioning and one of the 
allowed lines-per-inch codes for vertical line spacing. The 
structure of the data byte is shown in Figure 66. 


Bit Pattern 


012 344 5 6 7 






Channel Code 


=" 
© 
* 


Binary 
0000 
Line Spacing (LPI) 0001 
0000 = No change 0010 
0110 = 6 LPI 0011 
1000 = 8 LPI 0100 
0101 
0110 
0111 
1000 
1001 
1010 
1011 
1100 


Channel 


i 
-_ 
3 
=} 
— 
oC 


Aw Pp owIAHALNHO| 
WO WMWANDMNAWNPE 


Figure 66. 4%248 FCB Module Data Byte 


The total number of lines defined in the module must be equal to 
the length of the form. 


Figure 67 on page 176 shows the IEBIMAGE listing of a 3800 FCB 


module. The notes that follow the figure describe the encircled 
numbers in the figure. 


For the 4248 FCB module, the IEBIMAGE listing also includes the 


horizontal copy feature, printer speed setting, and default 
settings. 
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oN 
QQ . 
PRINT LINE 1 AT 6 LINES PER INCH - HAS CHANNEL 1 CODE. 
PRINT LINE 2 AT 8 LINES PER INCH 
PRINT LINE 3 AT 8 LINES PER ICH 
PRINT LINE 4 AT 12 LINES PER INCH 
PRINT LINE 5 AT 12 LINES PER INCH 
FRINT LINE 6 AT 12 LINES PER INCH 
PRINT LINE 7 AT 12 LINES PER INCH 
PRINT LINE 8&8 AT 12 LINES PER INCH 
PRINT LINE 9 AT 12 LINES PER INCH 


PRINT LINE 10 AT 12 LINES PER INCH 
PRINT LINE 11 AT 12 LINES PER INCH 
PRINT LINE 12 AT 12 LINES PER INCH 
PRINT LINE 13 AT 12 LINES PER IHCH 
PRINT LINE 14 AT 12 LINES PER INCH 
PRINT LINE 15 AT 12 LINES PER INCH 
PRINT LINE 16 AT 12 LINES PER INCH 
PRINT LINE 17 AT 12 LINES PER INCH 
PRINT LINE 18 AT 12 LINES PER INCH 
PRINT LINE 19 AT 12 LINES PER INCH | 
PRINT LINE 20 AT 12 LINES PER INCH 
PRINT LINE 21 AT 12 LINES PER INCH 
PRINT LINE 22 AT 12 LINES PER INCH 
PRINT LINE 23 AT 12 LINES PER INCH 
PRINT LINE 24 AT 12 LINES "7 
PRINT LINE 25 AT 12 17° 

PRINT LINE 26 AT ° 

PRINT LINE 27 

“THT CINE e 


eR INCH Bee 

aNES PER INCH 
a¢ LINES PER IHCH 
aT 12 LINES PER INCH 
98 AT 12 LINES PER INCH 
PRIN) LINE 99 AT 12 LINES PER INCH 

PRINT LINE 100 AT 12 LINES PER INCH - HAS CHANNEL 12 CODE. 

PRINT LINE 101 AT 12 LINES PER INCH | 

PRINT LINE 102 AT 12 LINES PER INCH 
PRINT LINE 103 AT 12 LINES PER INCH 
PRINT LINE 104 AT 12 LINES PER INCH 
PRINT LINE 105 AT 12 LINES PER INCH 
PRINT LINE 106 AT 12 LINES PER INCH 
PRINT LINE 107 AY 12 LINES PER INCH 
PRINT LINE 108 AT 12 LINES PER IHCH 
PRINT LINE 109 AT 12 LINES PER INCH 
PRINT LINE 110 AT 12 LINES PER INCH 
PRINT LINE 111 AT 12 LINES PER INCH 
PRINT LINE 112 AT 12 LINES PER INCH 
PRINT LINE 113 AT 12 LINES PER IHCH 
PRINT LINE 114 AT 12 LINES PER INCH 
PRINT LINE 115 AT 12 LINES PER INCH 
PRINT LINE 116 AT 12 LINES PER INCH 
PRINT LINE 117 AT 12 LINES PER INCH 
PRINT LINE 118 AT 12 LINES PER INCH 


Figure 67. IEBIMAGE Listing of a Forms Control Buffer Module 
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Notes to Figure 67: 


( 1. The line number. Each line of the form is listed in this 
: way. 
2. The vertical spacing of the line, in lines per inch. 


3. The channel code, printed for each line that includes a 
channel code. 


CREATING A COPY MODIFICATION MODULE 


The 3800 copy modification module contains predefined data for 

modifying some or all copies of an output data set. Segments of 
the module contain predefined text, its position on each page of 
the output data set, and the copy or copies the text applies to. 


The copy modification module is created and stored in an image 
library, using the INCLUDE, OPTION, COPYMOD, and NAME utility 
control statements of IEBIMAGE. 


The INCLUDE statement identifies a module that is to be copied 
and used as a basis for the newly created module. The OPTION 
statement with the OVERRUN parameter allows you to suppress the 
printing of line overrun condition messages for those vertical 
line spacings that are not applicable to the job. The OPTION 
statement with the DEVICE parameter specifies 3800 Model 3 
compatibility mode processing. The COPYMOD statement is used to 
describe the contents of one of the new module's segments. The 
NAME statement is used to identify the new module and to 
indicate whether it is new or is to replace an existing module 
with the same name. | 


COPYMOD Module Structure 


( The copy modification data following the header information 15S a 
: — series of segments. Each segment is of variable length and is 
composed of tne components shown in Figure 68. 


Segment | Segment 2 
alelePelr] ext ——idafe[eDle[r] xr _ 


Modifying text 
Number of bytes of text 
Starting print position 
Number of lines to be modified 
Starting line number 
Number of copies to be modified 
Starting copy number 


Figure 68. Copy Modification Module Structure 


A, B, C, D, E, and F are each l-byte fields. 


e If the module contains more than one segment, the starting 
copy number must be equal to or greater than the starting 
copy number in the previous segment. 


e Any string of the same character within the text may be 
compressed into 3 bytes. The first such byte is X'FF', the 
second byte is the number of compressed characters, and the 
third byte is the data code for the character. 
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e The size of the module is limited to 8192 bytes of data and 
& bytes of header information. 


COPYMOD Module Listing 


SEGMENT 


l 


Figure 69. 


Figure 69 shows the listing of three segments of a copy 
modification module. This listing shows only the positioning of 
the modifying text. To print out the text itself, you can use 
the IEBPTPCH utility program or the AMASPZAP service aid. The 
numbered notes that follow the figure describe the items marked 
with the encircled numbers. 


(1) MoD 1 HANK 


INITIAL NUMBER OF INITIAL NUMBER OF INITIAL NUMBER OF 
COPY NO. COPIES LINE NO. LINES PRINT POS. CHARACTERS 
1 4 58 1 35 18 
2 1 1 1 50 23 
2 1 34 3 75 10 


No NN 


IEBIMAGE Listing of Three Segments of a Copy Modification Module 


Notes to Figure 69: 

In this example, each note refers to the module's third segment. 
1. The name of the copy modification module as it exists in the 
SYS1.IMAGELIB data set's directory (Cincluding the 4-byte 

system~assigned prefix). 


2. The segment number of the modification segment. 


3. This segment applies only to the second copy of the output 
data set. 


G. The text of the segment is located on lines 34, 35, and 36. 


5. The text on each line starts at the 75th character, and 
occupies 10 character spaces. 


CREATING A CHARACTER ARRANGEMENT TABLE MODULE 


The 3800 character arrangement table module is fixed length and 
consists of three sections: 


° System control information, which contains the module's name 
and length. 


e The translate table, which contains 256 one-byte translate 
table entries, corresponding to the 8-bit data codes (X'‘'00'! 
through X'FF'). A translate table entry can identify one of 
64 character positions in any one of four writable character 
generation modules (WCGMs) except the last position in the 
fourth WCGM CWCGM 3), which would be addressed by X'FF®. 

The code X'FF' is reserved to indicate an unprintable 
character. When an entry of X'FF' is detected by the 
printer as a result of attempting to translate an invalid 
8-bit data code, the printer prints a blank and sets the 
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data-check indicator on Cunless the block-data-check option 
is in effect). 


e Identifiers, which identify the character sets and the 
graphic character modification modules associated with the 
character arrangement table. 


For the 3800 Model 1 or Model 3, if the character set identifier 
is even, the character set 1S accessed from the printer's 
flexible disk. If the identifier is odd, the character set 1s 
retrieved from the image library. 


The character arrangement table is created using the INCLUDE, 
TABLE, and NAME utility control statements. The INCLUDE 
statement identifies an existing character arrangement table 
that is to be copied and used as a basis for the new module. 
The TABLE statement describes the new or modified module's 
contents. The NAME statement identifies the character 
arrangement table and indicates whether it is new or is to 
replace an existing module with the same name. 


The OPTION statement with the DEVICE=3800M3 parameter should be 
specified when printing an existing character arrangement table 
for a 3800 Model 3. This is to ensure that the system assigns 
the correct prefix to the graphic modification module name 
associated with the character arrangement table. 


For information on geile supplied Sheela al arrangement Leap and 
character sets, see 800 Subsystem Programme 


Guide. 


Note: The character arrangement table you select may not 
include all the characters ina character set. The character 
arrangement table corresponds to a print train, which is 
sometimes a subset of one or more complete character sets. When 
the character set is loaded, all characters of the set Cup to 
64) are loaded into the printer's WCGM; only those characters 
that are referred to by a translate table can be printed. 


TABLE Module Structure 





The character arrangement table data following the header 
information is composed of the following components: 


e A 256-byte translate table 


e Four 2-byte fields for codes identifying character sets and 
their WCGM sequence numbers 

@ Four 4-byte fields for graphic character modification module 
names 


The translate table consists of 256 one-byte entries, each 
pointing to one of 64 positions within one of four WCGMs: 


@ Bits 0 and 1 of each translate table byte refer to one of 
four WCGMs and bits 2 through 7 point to one of 64 addresses 
(0-63) within the WCGM. If SETPRTI loads a character set 
into a WCGM other than the WCGM called for, SETPRT, using a 
copy of the translate table, alters bits 0 and 1 of each 
non-X'FF' byte of the translate table to correspond with the 
WCGM loaded. Figure 70 on page 180 describes the structure 
of the character arrangement table module. 
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These 6 bits reference one of 64 
addresses (0-63) in the WCGM. 


00=WCGMO 
01=WCGM 1 
10=WCGM2 
11=WCGM3 


Figure 70. Character Arrangement Table Module Structure 


A byte value of X'FF' indicates an invalid character, prints 
as a blank, and gives a data check. The data check is 
suppressed if the block data check option is selected. 


One translate table can address multiple WCGMs, and multiple 
translate tables can address one WCGM. The translate tables 
supplied by IBM address either one or two WCGMs. 


The next two components provide the linkage to character sets 
and graphic character modification modules. They consist of 
four 2-byte fields containing character set IDs with their 
corresponding WCGM sequence numbers, followed by four 
G-character names of graphic character modification modules. 
The format is as follows: | 


Each CGMID is a l-byte character set ID containing two 
hexadecimal digits that refer to a library character set (as | 
listed in IBM 3800 Printing Subsystem Programmer's Guide). eee 
Each WCGMNO refers to the corresponding WCGM sequence (X'00! 

to X'03'). Each name is the 4-character name of a graphic 
character modification module. 


CGMIDO WCGMNOO CGMIDI WCGMNO] 
CGMID2 WCGMNOZ2 CGMID3 WCGMNOS 


Namel 











Name2 


Most of the standard character arrangement tables do not 
need graphic character modification. The names are blank 
CX'G0's) if no modules are referred to. 





The CGMIDx and the WCGMNOx are both X'0Q0! when there are no 
character sets referred to after the first one. 


} 
. ye 
La 
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TABLE Module Listing 


C 


nk, 


Ox 
1x 
ex 
3x 
4X 
5X 
6X 
7K 
8x 
9X 
AX 
Bx 
Cx 
Ox 


! ( EX 
| ' FX 


has ye 


x0 


10 


20 


3A 


30 


x1 


10 


31 


01 


11 


31 


02 


12 


22 


32 


92 


12 


22 


32 


CGM IDENTIFICATION ORDER 


CGM IDENTIFICATION 


GRAPHIC MODIFICATION RECORDS 


Figure 71. 





IEBIMAGE 


Figure 71] shows the listing of a character arrangement table 
module. The numbered notes that follow the figure describe the 
items marked with the encircled numbers. 


03 
13 
23 
33 
03 
13 
23 


33 


xreit11T~—{1) 





X4 x5 x6 X7 x8 x9 XA xB xC x0 XE Xf 
* * * * * ; * * * * * 5d % 
® " * * * * * % * * * 
® a & r & a r & * & * 
* * & * * * * * & * * ” 
* * ” * sd * 00A 008 00C 000 0 OE OO OF 
” ad * * #* * 014 018 01C 010 O01€& O1F 
* sd * * * el * 028 02C 020 O 2E-= O 2F 
" * # * * 034 038 O0O3C 0230 OO 3€ O SF 
104 105 106 #107 «#1086 1 09 * 100 210C 13 $138 #212148 
114 21215 116 #217 #1216 1219 * 110 002A 4130 1°0€ = 1 OF 
1246 2125 126 127 #128 2129 * 12A 12C 210A =12€E€~= 1 OB 
1 34 1 35 1 36 1 37 1 36 1 20 1 2B 1 168 1 21 1 1C 
004 005 006 00907 0 06 * * * # 
014 O15 O16 017 O18 ae! * + % r 
024 025 026 027 = 90 28 * ® a * « 
034 035 03% 037 O 38 * * + * * 
1 2 3 
ll # # 
GRF2 


10 


Listing of a Character Arrangement Table Module 


Notes to Figure 71: 


Ls 


The name of the character arrangement table module, as it 


exists in the image library's directory Cincluding the 
G- byte system-assigned prefix). 


The I-byte identifier of an IBM-supplied character set (Cin 
this example, the Text 1] and Text 2 character sets, whose 
identifiers are X'8F!' and X'1ll1'). 


All character sets in SYSIL.IMAGELIB or a user-specified 
image library are represented by odd-numbered identifiers. 
For a 3800 Model 3, if the character set identifier 
specified is even-numbered, it is increased by one at print 
time and the character set with that identifier is loaded. 
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3. The sequence number of the WCGM that is to contain the 
character set indicated below it (in this example, the 7 
second WCGM, whose identifier is l). fo™~ 


G4. The sequence number of the WCGM that contains the scan te 
pattern for the 88-bit data code that locates this translate 
table entry. 


5. Your 8-bit data code X'B9!' transmitted to the 3800 Model 3 
addresses this, the BY location in the translate table, 
where the value X‘'39' in turn is the index into the WCGM 
that contains the scan pattern to be used (in this example, 
the Text 2 superscript 9). 


6. An asterisk is shown in the listing for each translate table 
entry that contains X'FF'. This indicates that the 8-bit 
data code that addresses this location does not have a 
graphic defined for it and is therefore unprintable. 


7. An asterisk in the list of character set identifiers 
indicates that no character set 1s specified to use the 
corresponding WCGM. If you specify 7F or FF as a character 
set identifier (to allow accessing a WCGM without loading 
it), a 7F or FF prints here. 


8. The name of a graphic character modification module, as the 
name exists in the library's directory Cincluding the 
system-assigned prefix). 


When you specify a graphic character modification module to 
be associated with a character arrangement table, you must 
specify the OPTION statement with the DEVICE parameter (for 
the 3800 Model 3) to ensure that the system assigns the 
correct prefix CGRF2) to the graphic character modification 
module name. 


CREATING A GRAPHIC CHARACTER MODIFICATION MODULE 


The 3800 graphic character modification module is variable 
length and contains up to 64 segments. Each segment contains 
the 1 byte (for the 3800 Model 1) or 6 bytes (for the 3800 Model 
3) of descriptive information and the 72-byte C(Cfor the 3800 
Model 1) or 120-byte (for the 3800 Model 3) scan pattern of a 
graphic character. 


The graphic character modification module is created using the 
IEBIMAGE program's INCLUDE, GRAPHIC, OPTION and NAME utility 
control statements. 


The INCLUDE statement identifies an existing graphic character 
modification module that is to be copied and used as a basis for 
the new module. 


To create graphic character modification modules in the format 
of the 3800 Model 3 compatibility mode module, the OPTION 
statement with the DEVICE parameter is required. 


A GRAPHIC statement, when followed by one or more data 
statements, defines a user-designed character. A GRAPHIC 
statement can also select a character segment from another 
graphic character modification module. Each GRAPHIC statement 
causes a segment to be created for inclusion in the new module. 


The NAME statement identifies the new module and indicates that 
the module is to be added to the library or is to replace an 
existing module of the same name. More than one GRAPHIC 
statement can be coded between the INCLUDE and NAME statements, 
and all such GRAPHIC statements apply to the same graphic 
character modification module. 
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GRAPHIC Module Structure 


The graphic character modification data following the header 
information is a series of 73-byte segments for the 3800 Model 1 
and 126-byte segments for the 3800 Model 3. A maximum of 64 
such segments 18S allowed in a module. The module structure is 
shown in Figure 72. 





OL 234 6 


120 bytes of coding that represent 
the 24 bits of each of the 40 raster 
scan lines 


Reserved 


Number of total scan lines in pattern set to 40 
Set to zero 


Width of the character: 24 pels = 10 pitch 
20 pels = 12 pitch 


Translate table code 16 pels = 15 pitch 


Figure 72. Graphic Character Modification Module Structure 


When a graphic character is to be modified, the 3800 uses the 
translate table code to index into the translate table. The 
aa contents found at that location Ca l-byte WCGM code) determine 
( the WCGM location into which the scan pattern and character data 
are to be placed. 


FOR THE 3800 MODEL 1: The 72-byte graphic definition that makes 
up the scan pattern and system data for one character 1s divided 
into twenty-four 3-byte groups. Each 3-byte group represents a 
horizontal row of eighteen l-bit elements (plus parity 
information). 


FOR THE 3800 MODEL 3: The 120-byte graphic definition that 
makes up the scan pattern for one character is divided into 
forty 3-byte groups. Each 3-byte group represents a horizontal 
row of twenty-four l-bit elements. 


GRAPHIC Module Listing 


Figure 73 on page 184 shows an extract from a listing of a 
graphic character modification module. This extract contains the 
listing of two segments of the module. Each of the notes 
following the figure describes the item in the figure that is 
marked with the encircled number. 
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SEGNENT 004% SEGMENT 005 
ASSIGNMENT 047 PITCH 10 ASSIGNMENT C4 PITCH 10 
123456 789012345678901234 123456 789012345678901234 
2 
| ce ‘ 3. . 
| 4. ‘ a. : 
: 5. : 5. : 
| 6. A 6. ‘ 
| : aoe 36 30 36-96 96-96 36 . 7. - 
| 8. 90 9 HE AE AE EE ‘ 8. _ 
: 9. Titi tetire : 9. 96 96 36-36 36-96 96-36 9696 EI IE ° 
| 10. 9 1 9 9 WE 8 4 a EO ° 10 . 9 96 36-96 36 36-3690 96-96-9698 E98 ‘ 
| ll. i heh ahehe! Taha heie hel ° ll. UE HE JE IE NE HE 3 HEHEHE HE DEE DE : 
: le. 96 2 36 36-38 36 34 36-36 96 : 12. HIG BENE IE IERE ‘ 
| 13. Ae a a ehh ahahal ° 13. 36963636 9696969696 A 
| 4. 4 0% : 14. 90903838 IEE 3 3638 - 
iS. re | ° iS. 9 IEEE 33 IIH ‘ 
16. a 3 A 16. HIE 3636 3636 F 
7. 3 3 ° 17. 9-36 3698 963663 ; 
18. HM wt 18. 9383698 33696 ‘ 
19. a ot 19. MH HEH HH ; 
2c0 1 0 . 20. 363636 38 HE 33 . 
He Gee ELE - ol. 33E IH EH ‘ 
ae 1 A 06 36 08 9-96-9638 é oo. 33636 36 96963636 ‘ 
23, Lett Meee cet : °3 a FH IEM : 
rag ; PE 9G OE Ae AE 9G AE OE OEE EE “ 26 . HHH 396 369% “ 
25. 3000 36 BE aE AC aE : 25. He NI 
26. 96 9096 25 GE 28 : 26. 3363636 9-96 3636 38 ‘ 
o7 2 EH ; o7. HHI «HEN IE TENE i 
28. 3 HEM : 28. 30636 996 3E IE NE IE IE 98 98 IE IE IE ‘ a 
29 , 0 06 06 ; 29 . 9-996 96 96 9696969830 30 89098 ; ; 
30. 3654.46 : 30. 36 90-96 309036 6909696 9638 9 ; 7 
31. Tir tas 3 31. ° 
32. 9 96 98 98 2 . 32. ° 
ae 2696 6 ‘ 33. ° 
34 e ° 34 ° °. 
35 . . 35. . 
36. . 36. . 
37 ° ° 37 ° bd 
38 . ° 38. . 
39 . . 39. . 
40. . 40 . . 


Figure 73. IEBIMAGE Listing of Two Segments of a Graphic 
Character Modification Module 


Notes to Figure 73: 


1. The segment number of the character segment within the 
module. 


2. The 88-bit data code for the character. 
3. The pitch of the character. 
| G. The scan pattern for the character. A dollar sign ($) is 


| printed instead of an asterisk if the bit specified is out 
| of the pitch range. 
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CREATING A LIBRARY CHARACTER SET MODULE 


ao The 3800 library character set module is a fixed-length module 

| made up of 64 segments. Each segment contains the 73 bytes (for 
the 3800 Model 1) or 126 bytes (for the 3800 Model 3) of 
information including the scan pattern of a graphic character 
and a code (00-3F) that identifies the WCGM location into which 
the scan pattern is to be loaded. 


The library character set module is created using the INCLUDE, 
CHARSET, and NAME control statements. 


The INCLUDE statement identifies an existing module. 


The OPTION statement with the DEVICE parameter is required to 
create library character set modules in the 3800 Model 3 
compatibility mode module format. 


A CHARSET statement, when followed by one or more data 
statements, defines a user-designed character. A CHARSET 
statement can also select a character segment from another 
library character set or from a graphic character modification 
module. 


The NAME statement specifies the ID of the character set being 
created and indicates if it is to replace an existing module. 
More than one CHARSET statement can be coded between the INCLUDE 
and NAME statements; all such CHARSET statements apply to the 
same library character set module. 


CHARSET Module Structure 


The library character set data following the header information 
is a series of 73-byte segments for the 3800 Model 1 and 
as 126-byte segments for the 3800 Model 3. Each module contains 64 
( - segments. For each segment left undefined ina library 
: character set module, IEBIMAGE inserts the graphic symbol for an 
undefined character. The structure of a library character set 
module is shown in Figure 74. 


Of tf 2 | 3 4-56 ——————— 125 








120 bytes of coding that represent 
the 24 bits of each of the 40 raster 


scan lines 
Reserved 







Number of total scan lines in pattern set to 40 
Set to zero 


Width of the character: 24 pels = 10 pitch 

20 pels = 12 pitch 
WCGM location of 16 pels = 15 pitch 
graphic character 


Figure 74. Library Character Set Module Structure 


A library character set is loaded directly into a WCGM. SETPRT 
uses the 6-bit code contained in the first byte of each 73-byte 
segment (for the 3800 Model 1) or 126-byte segment (for the 3800 
Model 3) as the address of the WCGM location into which the | 
remaining 72 bytes (for the 3800 Model 1) or 125 bytes (for the 
3800 Model 3) are loaded. 
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FOR THE 3800 MODEL 1: The 73-byte graphic definition that makes 
up the scan pattern for one character is divided into ai 


twenty-four 3-byte groups. Each 3-byte group Perea: a a” 
horizontal row of eighteen 1l-bit elements. 7 
FOR THE 3800 MODEL 3: The 126-byte graphic definition that 
makes up the scan pattern for one character is divided into 
forty 3-byte groups. Each 3-byte group represents a horizontal 
row of twenty-four l-bit elements. 
CHARSET Module Listing 
Figure 75 shows an extract from a listing of a library character 
set module. This extract contains the listing of two segments 
of the library character set. The numbered notes that follow 
the figure describe the items marked with the encircled numbers. 
ics209 a @ - p 
SEGNENT 007 Praia 008 
ASSIGHMENT 06 PITCH 10 SSIGIIENT 07 PITCH 10 
123456 789012345678901234 1234956 7890123456 78901234 
| a | ‘ : ae ; 
2. ‘ 2 ‘ 
>) % ‘ 3. ‘ 
Q . ; 4. . 
Ss ‘ 5. ‘ 
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26. MM eH - C6. HENNY Ew . 
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Figure 75. IEBIMAGE Listing of Two Segments of a Library 
Character Set 
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Notes to Figure 75: 


| a 1. The name of the library character set module, including the 
| : G-byte system-assigned prefix. 
2. The segment number of the character segment within the 
module. 


3. The 6-bit code for the WCGM location. 

G. The pitch of the character. 

5. The scan pattern for the character. A dollar sign (€$) is 
printed instead of an asterisk if the bit specified is out 
of the pitch range. 

INPUT AND OUTPUT 

IEBIMAGE uses the following input: 

® A control data set that contains utility control statements 

° Source statements produced by the Character Conversion Aid 

ITEBIMAGE produces the following output: 

@ A new module or modules for use with the 3800 Model 1 and 
Model 3 printers, 3262 Model 5 printer, or the 4248 printer, 
to be stored in an image library. These may be of one of 
the following types: 

_ Forms control buffer modules (3800 or 4248) 
~ Copy modification modules (3800 only) 


( = Character arrangement table modules (3800 only) 


ha 


a Graphic character modification modules (3800 only) 

= Library character set modules (3800 only) 

Note that, in building a 4248 FCB module, either a 4248 
Cprefix FCB4) or a 3211 (prefix FCB2) format FCB may be 
used. JEBIMAGE prefixes the name with FCBG first; then, if 
no module exists with that name, the prefix is changed to 
FCB2. 


e An output data set listing for each new module which 
includes: ; 


= Module identification 
es Utility control statements used in the job 
= Module contents 


_ Messages and return codes 


RETURN CODES 


TEBIMAGE returns a code in register 15 that represents the most 
severe error condition encountered during the program execution. 
This return code is also printed in the output listing. The 
codes are described in Figure 76 on page 188. 
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Codes 


00 


04 


08 
12 
16 
20 


24 


(00 hex) 
(04) 


(08) 
(0c) 
(10) 
(14) 


(18) 


Figure 76. 


CONTROL 


Meaning» 


Successful completion; operation(s) performed as 
requested. 


Operation(s) performed; investigate messages for 
exceptional circumstances. 


Operation(s) not performed; investigate messages. 
Severe exception; processing may end. 
Catastrophic exception; the job step is terminated. 


SYSPRINT data set could not be opened; the job step 
is terminated. 


User parameter list invalid; the job step is 
terminated. 


LEBIMAGE Return Codes 


IEBIMAGE is controlled by job control statements and utility 
control statements. 


JOB CONTROL STATEMENTS 


Figure 77 shows the job control statements for IEBIMAGE. 


Statement 


JOB 


EXEC 


SYSPRINT DD. 


SYSUT1 DD 


SYSIN DD 


Figure 77. 
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Use 
Initiates the job. 


Specifies the program name (PGM=IEBIMAGE) or, if 
the job control statements reside in the procedure 
library, the procedure name. No PARM parameters 
can be specified. 


Defines the sequential message data set used for 
listing statements and messages on the system 
output device. 


Defines the library data set (SYSI]L.IMAGELIB or a 
user-defined library). 


Defines the control data set, which normally 
resides in the input stream. 


Job Control Statements for IEBIMAGE 


Utilities 














SYSPRINT DD Statement 


; Block size for the SYSPRINT data set should be 121 or a multiple 

| of 121. Any blocking factor can be specified. The first 
character of each 121-byte output record is an ANSI control 
character. 


SYSUT1 DD Statement 
To ensure that the library data set is not updated by other jobs 
while the ITEBIMAGE j0b is running, DISP=OLD should be specified 
on the SYSUT1 DD statement. 
Note that the system will only attempt to locate modules in 
SYS1.IMAGELIB if the device is a 3800 printer. 

SYSIN DD Statement 
Block size for the SYSIN data set should be 80 or a multiple of 
80. Any blocking factor can be specified. 

UTILITY CONTROL STATEMENTS 


IEBIMAGE is controlled by the following utility control 
statements listed in Figure 78. 


Continuation requirements for utility control statements are 
discussed in "Continuing Utility Control Statements" on page 5. 


Statement Use 


7 FCB Creates a 3800 or 4248 forms control buffer module and 
4 stores it in an image library. 


COPYMOD Creates a 3800 copy modification module and stores it 
in an image library. 


TABLE Creates a 3800 character arrangement table module and 
stores 1t in an image library. 


GRAPHIC Creates a 3800 graphic character modification module 
and stores it in an image library. 


CHARSET Creates a 3800 library character set module and stores 
- 2t ain an image library. 


INCLUDE Identifies an existing image library module to be 
copied and used as a basis for the new module. 


NAME Specifies the name of a new or existing library 
module. 


OPTION Specifies optional 3800 Model 3 or 4248 printer 
compatibility, or COPYMOD overrun lines per inch for 
an IEBIMAGE job. 


Figure 78. Utility Control Statements for IEBIMAGE 
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Operation Groups 


FCB STATEMENT 


IEBIMAGE utility control statements are grouped together to 
create or print a library module. Each group of statements is 
called an operation group. Your job's input stream can include 
many operation groups. The operation groups (shown below 
without operands) that can be coded are: 


o To create or print an FCB module: 


[OPTION] 
[INCLUDE] 
FCB 

NAME 


Note: It is not possible to print a 4248 FCB module without 


coding some valid operation on the FCB statement. 
e To create or print a copy modification module: 


[INCLUDE] 

[OPTION] 

COPYMOD 

[additional COPYMOD statements] 
NAME 


e To create or print a character arrangement table module: 


CINCLUDE] 
[OPTION] 
TABLE 
NAME 


e To create or print a graphic character modification module: 


[INCLUDE] 

COPTION] 

{GRAPHIC|GRAPHIC, followed immediately by 
data statements} 

Nien ne GRAPHIC statements] 


® To create or print a library character set module: 


[INCLUDE] 

COPTION] 

{CHARSET|CHARSET, followed immediately by 
data statements} 

ae ee CHARSET statements] 

A 


To print a module, you need only supply the function statement 
(that is, FCB, COPYMOD, TABLE, GRAPHIC, or CHARSET) with no 
operands specified, followed by the NAME statement naming the 
module. However, it 1S not possible to print a 4248 FCB module 
without coding some valid operation on the FCB statement. 


The FCB statement specifies the contents of a forms control 


buffer CFCB) module for the 3800, 3262 Model 5, or 4248 printer: 


spacing codes (lines per inch), channel codes (simulated 
carriage-control channel punches), and the size of the form. 
For the 4248 printer, the FCB statement also specifies print 
position for the horizontal copy feature and printer speed, and 
whether the FCB image is to be used as a default. 


The FCB statement must always be followed by a NAME statement, 
and can only be preceded by an INCLUDE statement if DEVICE=4248 
1s specified on an OPTION statement. 


An FCB statement with no operands specified, followed by a NAME 
statement that identifies a 3800 FCB module in the image 
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COPYMOD STATEMENT 








library, causes the module to be formatted and printed. 3262 
Model 5 and 4248 FCB modules cannot be printed by the FCB 
statement unless a valid operation is performed on them. To 
build an FCB module, you code the FCB statement with at least 
one operand. The format of a printed FCB module is shown in 
"FCB Module Listing™ on page 175. 


The format of the FCB statement is: 


CLPIT=(CLEC»nI IC, (LE,n1)...1)1 
[,CHx=(Clinel,»,line...JJL,CHx=(line...}...]] 
[,SIZE=lengthl] 


C,LINES=lines] 


[,COPYP=position] 
{,PSPEED={LIMIHIN}] 
[, DEFAULT={YES|[NO}] 





The COPYP, PSPEED, and DEFAULT parameters are valid only for a 
4248 FCB module Cnot for the 3800 or 3262 Model 5). 


A copy modification module consists of header information, 
followed by one or more modification segments. The header 
information contains the module's name and length. Each. 
modification segment contains the text to be printed, identifies 
the copy (Cor copies) the text applies to, and specifies the 
position of the text on each page of the copy. 


A COPYMOD statement specifies the contents of one of the 
modification segments of a copy modification module. More than 
one COPYMOD statement can be coded in an operation group; all 
COPYMOD statements so coded apply to the same copy modification 
module. 


IEBIMAGE analyzes the modification segments specified for a copy 
modification module to anticipate line overrun conditions that 
might occur when the module is used in the printer. A line 
overrun condition occurs when the modification of a line is not 
completed in time to print that line. The time available for 
copy modification varies with the vertical line spacing (lines 
per inch) at which the printer is being operated. 


When IEBIMAGE builds a copy modification module from your 
specifications, the program calculates an estimate of the time 
the modification will require during the planned printing. If 
the modification can be done in the time available for printing 
a line at 12 LPI (Clines per inch), it can also be done at 6 or 8 
LPI Cfor the Model 1), or 6, 8, or 10 LPI (for the Model 3). 
(Note that 6, 8, 10, and 12 LPI are the only print densities 
available on the 3800 Model 3 printer.) However, if the copy 
modification module being built is too complex to be done in the 
time available for printing a line at 6 LPI, it certainly cannot 
be done at 8, 10 Cfor the Model 3 only), or 12 LPI. (Note that 
at 10 and 12 LPI there is much less time available for printing 
a line than at 6 LPI.) 


When IEBIMAGE determines that a copy modification module is 
likely to cause an overrun if it is used when printing at a 
specified number of lines per inch, the program produces a 
warning message to that effect. If the warning applies to 6 
LPI, the overrun condition is also applicable to 8, 10 (for the 
Model 3 only), and 12 LPI. If the warning applies to 8 LPI, the 
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TABLE STATEMENT 


condition is also applicable for 10 (for the Model 3 only) and 
l2 LPI. If the warning applies to 10 LPI, the condition also 
applies to 12 LPI. 


If you are planning to use a particular copy modification module 
only while printing at 6 LPI, you can request suppression of the 
unwanted warning messages for 8, 10 (for the Model 3 only), and 
12 LPI by specifying the OPTION statement with 6 as the value of 
the OVERRUN parameter. If you are planning to print only at 8 
LPI, you can use the OPTION statement with OVERRUN = 8 to 
request suppression of the unwanted warning messages for 10 (for 
the Model 3 only) and 12 LPI. For more information on coding 
OVERRUN, see "Using OVERRUN" on page 196. For information about 
using your copy modification module, see JBM 3800 Printing 
Subsystem Programmer's Guide. The copy modification text can be 
printed using the same character size or style, or one different 
from the size or style used to print the data in the output data 
set. 


The COPYMOD statement must always be followed by a NAME 
statement or another COPYMOD statement and can be preceded by an 
INCLUDE statement. When more than one COPYMOD statement is 
coded, IEBIMAGE sorts the statements into order by line number 
within copy number. A COPYMOD statement with no operands 
specified, followed by a NAME statement that identifies a copy 
modification module, is used to format and print the module. 

The format of the printed module is shown under "COPYMOD Module 
listing™ on page 178. 


The format of the COPYMOD statement, when used to create a copy 
modification module's segment, is: 


[label] COPYMOD COPIES=(starting-copyl>,copies])>, 


LINES=(starting-linel,lines1]), 
POS=positions 
TEXT=C CE d]t, 'text' IL, CLd]t, 'text") 





The TABLE statement is used to build a character arrangement 
table module. When a character arrangement table is built by 
IEBIMAGE and an INCLUDE statement is specified, the contents of 
the copied character arrangement table are used as a basis for 
the new character arrangement table. If an INCLUDE statement is 
not specified, each translate table entry in the new character 
arrangement table module is initialized to X'FF*', the graphic 
character modification module name fields are set with blanks 
CX'GO0'), and the first character set identifier is set to X'83! 
Cwhich is the Gothic 10-pitch set). The remaining identifiers 
are set to X'00°. 


After the character arrangement table is initialized, IEBIMAGE 
modifies the table with data specified in the TABLE statement: 
character set identifiers, names of graphic character © 
modification modules, and specified translate table entries. 
The character arrangement table, when built, must contain a 
reference to at least one printable character. Only one TABLE 
statement can be specified for each operation group. The TABLE 
statement can be preceded by an INCLUDE statement and an OPTION 
statement and must always be followed by a NAME statement. 


A TABLE statement with no operands specified, followed by a NAME 
statement that identifies a character arrangement table module 
in the library, causes the module to be formatted and printed. 
The TABLE statement should be preceded by an OPTION statement 
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GRAPHIC STATEMENT 





with the DEVICE=3800M3 parameter for a 3800 Model 3. The format 
of the printed character arrangement table module is shown under 
"TABLE Module Listing™ on page 181. 


The format of the TABLE statement is: 

[label] TABLE C[CGHID=(setO[,set]...J])] 
[»>GCMLIST={lgemll[,qcem2..])|DELETE}] 
[,LOC=((xlocl,{clocl,setnol|FF}]) 


The GRAPHIC statement specifies the contents of one or more of 
the character segments of a graphic character modification 
module. A graphic character modification module consists of 
header information followed by from 1 to 64 character segments. 
Each character segment contains 





® The character's 8-bit data code, its scan pattern, and its 
pitch (for the 3800 Model 1) 


e Six bytes of descriptive information and the ]120-byte scan 
pattern (for the 3800 Model 3) 


By using the INCLUDE statement, you can copy an entire module, 
minus any segments deleted using the DELSEG keyword. In 
addition, you can select character segments from any module 
named with the GCM keyword on the GRAPHIC statement. The 
GRAPHIC statement can also specify the scan pattern and 
characteristics for a new character. 


The GRAPHIC statement must always be followed by a NAME 
statement, another GRAPHIC statement, or one or more data 
statements. The OPTION statement with the DEVICE parameter must 
precede the GRAPHIC statement to create a graphic character 
modification module in the 3800 Model 3 compatibility mode 
module format. The GRAPHIC statement can be preceded by an 
INCLUDE statement. More than one GRAPHIC statement can be coded 
in the operation group. The operation group can include GRAPHIC 
statements that select characters from existing modules and 
GRAPHIC statements that create new characters. The GRAPHIC 
statement, preceded by an INCLUDE statement, can be used to 
delete one or more segments from the copy of an existing module 
to create a new module. 


A GRAPHIC statement with no operands specified, followed by a 
NAME statement that identifies a graphic character modification 
module, is used to format and print the module. When you 
specify a graphic character modification module to be printed 
for a 3800 Model 3, you must specify the OPTION statement with 
the DEVICE parameter to ensure that the system assigns the 
correct prefix (GRF2) to the graphic character modification 
module name. 


The format of the GRAPHIC statement, when it 1s used to select a 
character segment from another graphic character modification 
module, is: 


[label] GRAPHIC [REF=((€seaqnol,»xlociJE, lseqnol»>xloc])..1) 
7 [,GCM=namel 
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CHARSET STATEMENT 


The format of the GRAPHIC statement, when it is used to specify 
the scan Jo ees and characteristics of a newly-created 
character, 


label GRAPHIC ASSIGN=(xlocl,»pitch] ) 
data statements 





The CHARSET statement specifies the contents of one or more of 
the character segments of a library character set module. A 
library character set module consists of header information 
followed by 64 character segments. Each character segment 
contains the character's 6-bit code for a WCGM location, its 
scan pattern, and its pitch. You can use the INCLUDE statement 
to copy an entire module, minus any segments deleted using the | 
DELSEG Keyword. In addition, you can use the CHARSET statement 
to select character segments from any module named with a 
library character set ID or the GCM keyword. The CHARSET 
statement can also specify the scan pattern and characteristics 
for a new character. 


The CHARSET statement must always be followed by a NAME 
statement, another CHARSET statement, or one or more data 
statements. The CHARSET statement must be preceded by an OPTION 
statement with the DEVICE parameter to create library character 
set modules in the 3800 Model 3 compatibility mode module 
format. The CHARSET statement can be preceded by an INCLUDE 
statement. More than one CHARSET statement can be coded in the 
operation group. The operation group can include CHARSET 
statements that select characters from existing modules and 
CHARSET statements that create new characters. The CHARSET 
statement, preceded by an INCLUDE statement, can be used to 
delete one or more segments from the copy of an existing module 
to create a new module. 


A CHARSET statement with no operands specified, followed by a 
NAME statement that identifies a library character set module, 
1s used to format and print the module. 


The format of the CHARSET statement, when it is used to select a 
character segment from another module, is: 


[label] CHARSET [REF=((segno,cloc)[,(segno»cloc)...]) 
[,{GCM=name | ID=xx} 1] 





The format of the CHARSET statement, when it is used to specify 
the scan pattern and characteristics of a newly-created 
character, 1s: 


Clabel] CHARSET | ASSIGN=(clocl,pitch]) 





data statements 
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INCLUDE STATEMENT 


NAME STATEMENT 


OPTION STATEMENT 





When an IEBIMAGE operation group is used to create a new module, 
the INCLUDE statement can identify an existing image library 
module to be copied and used as a basis for the new module. 

When the operation group is used to update an image library 
module, the INCLUDE statement identifies the module to be 
referred to and must be specified. 


The format of the INCLUDE statement is: 


INCLUDE module name 





[»DELSEG=(segnol»segno...1J])] 


e When the INCLUDE statement is coded in an operation group, 
it must precede any FCB, COPYMOD, TABLE, GRAPHIC, or CHARSET 
statements. 


@ Only one INCLUDE statement should be coded for each 
operation group. If more than one is coded, only the last 
1s used; the others are ignored. 


® You can code an INCLUDE statement for an FCB module only if 
the DEVICE=4248 parameter is specified on the OPTION 
statement. Either 3211 format or 4248 format FCBs may be 
included. IEBIMAGE attempts to locate the 4248 format FCB 
first; if it is not found, IEBIMAGE looks for the 3211 
format. 


e You cannot copy a 3800 FCB module with INCLUDE. 


The NAME statement can name a new library module to be built by 
the IEBIMAGE program. The NAME statement can also specify the 
name of an existing library module. The NAME statement is 
required, and must be the last statement in each operation 
group. 


The format of the NAME statement is: 


Piabar) | NAME woduTe-nanelt Ri! 


To create library character set modules and graphic character 
modification modules in a form usable on the 3800 Model 3, the 
OPTION statement with the DEVICE=3800M3 parameter is required. 
The OPTION statement with the DEVICE=3800M3 parameter is 
optional when creating copy modification modules and character 
arrangement table modules. 


To create a forms control buffer module for the 3262 Model 5 or 
4248 printer, the OPTION statement with the DEVICE=4248 
parameter is required. DEVICE=4248 cannot be used to create any 
module other than an FCB. 


The OPTION statement with the OVERRUN parameter is used only in 
a COPYMOD operation group and can be placed before or after any 
INCLUDE statement for the group. The value in the OVERRUN 
parameter specifies the greatest line density for which you want 
the overrun warning message IEBA33I to be printed. See "Using 
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OVERRUN® for information about overrun conditions and 
suppression of overrun warning messages. 


The format of the OPTION statement is: 


[label] OPTION COVERRUN={0/6/8110|/12}1 


[DEVICE={[3800N3 14248} ] 





When two parameters are specified, they may be listed in any 
order and separated by a comma. 


An effective use of the OPTION statement with the OVERRUN 
parameter would be to determine the greatest print-line density 
C6, 8, 10, 12) at which the copy modification module will be 
used, then specify that density in the OVERRUN parameter to 
eliminate the warning messages for higher line densities. 


The OPTION statement applies only to the operation group that 
follows it. If used, the OPTION statement must be specified for 
each operation group in the job input stream. 

Using OVERRUN 
Figure 79 shows the listing of segments of a copy modification 
module where an overrun warning was in order. Even if the 
OPTION statement specifies OVERRUN=0 and the overrun warning 


message is not printed, a note is printed to the left of each 
segment description for which an overrun is possible. 


| Initial Number Initial Initial Number | 
Copy Of | Line f Print of 
Notes Segment Number Copies | Number Position Characters 
1 


Note(]1)¢ 
Note(1)¢ 
Note (2)4 


Note(2)5 
Note(3)4 
Note(3)4 
Note (3)4 
Note(3)4 





Figure 79, IEBIMAGE Listing of a Copy Modification Module with Overrun Notes 


Notes to Figure 79: 


: indicates that you might have a copy modification overrun if 


your are printing at 12 LPI. 


2 indicates that you might have a copy modification overrun if 
you are printing at 8 LPI. 


3 indicates that you might have a copy modification overrun if 
you are printing at 8 or 1l2 LPI. 
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4 indicates that you might have a copy modification overrun if 
you are printing at 6, 8, or 12 LPI; in other words, you 
might have an overrun at any LPI. 

Factors used in determining a line overrun condition are: 

e Number of modifications per line 


e Number of segments per module 


Combining COPYMOD segments reduces the possibility of a line 
overrun condition. 


For the algorithm for calculating when a copy modification 
module might cause a line overrun condition, see Reference 


Manual for the IBM 3800 Printing Subsystem. 


Applicable 
Control 
Statements Description of Parameters 


CHARSET ASSIGN=(cloclI,pitch]) 
identifies a newly-created character and its 
characteristics. The ASSIGN parameter specifies 
the new character's 6-bit code and its pitch. 
When IEBIMAGE detects the ASSIGN parameter, the 
program assumes that all following statements, 
until a statement without the characters SEQ= in 
columns 25 through 28 1s encountered, are data 
statements that specify the character's scan 
pattern. 


cloc 
specifies the character's 6-bit code for a 
WCGM location and can be any value between 
X'00"' and X'3F'. cloc 1s required when 
ASSIGN is coded. 


pitch 
specifies the character's horizontal size 
and is one of the following decimal 


numbers: 10, 12, or 15. If pitch 1s not 
specified, the default is 10. 


At least one data statement must follow a 


CHARSET statement containing the ASSIGN 
parameter. 
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Applicable 
Control ; 
Parameters Statements Description of Parameters 


ASSIGN GRAPHIC ASSIGN=(xloclI,pitchl]) 
identifies a newly-created character and its 
characteristics. The ASSIGN parameter specifies 
the new character's 8-bit data code and its 
pitch. When IEBIMAGE detects the ASSIGN 
parameter, it assumes that all following 
statements, until a statement without the 
characters SEQ= in columns 25 through 28 is 
encountered, are data statements that specify 
the character's scan pattern. 


xloc 


specifies the character's 8-bit data code, 
and can be any value between X‘'00' and 
X'FF'. You should ensure that xloc 
identifies a translate table entry that 
points to a character position in a WCGM 
(that is, the translate table entry doesn't 
contain X'FF'). The xloc 1S required when 
ASSIGN is coded. 


specifies the character's horizontal size 

dis one of the decimal numbers 10, 12, 
or 15. If pitch is not specified, the 
default is 10. 


At least one data statement must follow a 
GRAPHIC statement containing the ASSIGN 
parameter. 


CGMID TABLE CGMID=(setO[,set]l...1) 
identifies the character sets that are to be 
used with the character arrangement table. (The 
IBM-supplied character sets are described in IBM 
3800 Printing Subsystem Programmer's Guide. ) 
When CGMID is specified, all character set 
identifiers are changed. If only one character 
set is specified, the other three identifiers 
are set to X'00'. 


setx 
is a l-byte identifier of a character set. 
Up to four character set identifiers can be 
specified; set0 identifies the character 
set that is to be loaded into the first 
writable character generation module 
CWCGM); setl is loaded into the second 
WCGM; etc. You should ensure that the 
character set identifiers are specified in 
the proper sequence, so that they are 
coordinated with the translate table 
entries. 


For the character set identifiers, see IBM 3800 
rinting Subsystem Programmer's Guide. 
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Parameters 
CHx 


Applicable 


Control 
Statements Description of Parameters 
FCB CHx=(linel,line...1) 


specifies the channel code Cor codes) and the 
line number Cor numbers) to be skipped to when 
that code 1s specified. 


CHx 
specifies a channel code, where x 18S a 
decimal integer from 1 to 12. 


line 
specifies the line number of the print line 
to be skipped to, and is expressed as a 
decimal integer. The first printable line 
on the page is line number 1. 


The value of line cannot be larger than the 
line number of the last printable line on 
the form. 


Only one channel code can be specified for a 
print line. However, more than one print line 
can contain the same channel code. 


Conventions: 


Channel 1 is used to identify the first 
printable line on the form. The job entry 
subsystem and the CLOSE routines for direct 
allocation to the 3800 with BSAM or QSAM 
require a channel 1 code even when the data 
being printed contains no skip to channel 1. 


Channel 9 is used to identify a special 
line. To avoid I/O interrupts that are 
caused by use of channel 9, count lines to 
determine the line position. 


Channel 12 is used to identify the last 
print line on the form to be used. To avoid 
I70 interrupts that are caused by use of 
channel 12, count lines to determine the 
page size. 


Use of an FCB that lacks a channel code to 
terminate a skip operation causes a data 
check at the printer when the corresponding 
skip 1s issued. This data check cannot be 
blocked. 


If INCLUDE is specified, values for CHx may be 
taken from the included FCB module. See the 
discussion under module name. 
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Applicable 


Control or 
Parameters Statements Description of Parameters 





COPIES COPYMOD COPIES=(startinag-copyl,copies] ) 
specifies the starting copy number and the total 
number of copies to be modified. 


starting-copy 
specifies the starting copy number and 1s 
expressed as a decimal integer from 1 to 
255. The starting-copy value is required. 


specifies the number of copies that are to 
contain the modifying text and is expressed 
as a decimal integer from 1 to 255. When 
copies is not specified, the default is 1 
copy. 


The sum of starting-copy and copies cannot 
exceed 256 (255 for JES3). 


COPYP FCB COPYP=position 
specifies the position (the number of character 
spaces from the left margin) at which the 
horizontal copy is to begin printing. 


position 
is a decimal number, from 2 to 168, which 
indicates where the horizontal copy 


printing will start. If your 4248 printer 
has only 132 print positions, the maximum 
number you should specify here is 132. 


If COPYP=0 is coded, any COPYP value 
previously set in an included FCB module is 
overridden, and the horizontal copy feature 
is turned off. You may not specify 
COPYP=1. 


If INCLUDE is specified, and the included FCB 
module is formatted for a 4248 printer only, the 
default is the COPYP value for the included FCB 
module. Otherwise, if no COPYP value is 
specified, the default value is 0. 


COPYP is not valid for 3800 FCB modules; it is 
ignored for 3262 Model 5 FCB modules. 


The COPYP value specified affects the maximum 
amount of data that may be sent to the printer. 
Channel programs that are executed with the 
horizontal copy feature activated must set the 
suppress incorrect length CSIL) bit and have a 
data length that does not exceed the size of 
either one half the number of print positions or 
the smaller of the two copy areas. 
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statements 









data statements 
describe the design of the character as it 1s 
represented on a character design form. For 
details of how to design a character and how to 
use the character design form, see IBM 3800 
Printing Subsystem Programmer's Guide. Each 
data statement represents a line on the design 
form. Each nonblank line on the design form 
must be represented with a data statement; a 
blank line can also be represented with a data 
statement. You can code up to 24 (for 3800 
Model 1) or 40 Cfor 3800 Model 3) data 
statements to describe the new character's 
pattern. On each statement, columns 1 through 
18 (for Model 1) or 24 Cfor Model 3) can contain 
nonblank grid positions when the character 1s 
10-pitch. Any nonblank character can be punched 
in each column that represents a nonblank grid 
position. Columns 1 through 15 (for Model 1) or 
20 Cfor Model 3) can contain nonblank grid 
positions when the character is 1]12-pitch. 
Columns 1 through 15 (for Model 1) or 1 through 

16 (for Model 3) can contain nonblank grid 

positions when the character 1s l15-pitch. 


DEFAULT={VES |NO} 
specifies whether this 4248 FCB image is to be 
treated as the default image by OPEN processing. 

Default images are used by the system for jobs 

that do not request a specific image. 






DEFAULT FCB 


If a job does not request a specific FCB image, 
and the current image is not a default, the 
operator will be prompted for an FCB image at 
OPEN time. 


If INCLUDE is used to copy a 4248 FCB module 
that was originally specified as a default 
image, the new module will also be considered a 
default image unless DEFAULT=NO is now 

specified. 


DEFAULT is not valid for 3800 FCB images. 


DELETE 
specifies that all graphic character 
modification module name fields are to be set to 

blanks. 

























DELETE TABLE 






DELSEG INCLUDE DELSEG=(seqgnol»segno...1) 
specifies the segments of the copied module that 
are to be deleted when the module is copied. 
Segment numbers can be specified 1n any order. 
In this parameter, segment 1 1s used to refer to 
the first segment of the module. When you code 
the DELSEG parameter, you should use a current 
listing of the module's contents to ensure that 
you are correctly identifying the unwanted 

segments. 


You can code the DELSEG parameter only when the 
named module is a copy modification module, a 
graphic character modification module, ora 

library character set module. 
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Applicable 
Control 
Statements 


OPTION 













Parameters 


DEVICE | 
7 
GCMLIST TABLE 
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Description of Parameters 


DEVICE={3800N3 |4248} 
specifies printer compatibility mode module 
formats and processing considerations. 


3800N3 | 
specifies 3800 Model 3 compatibility. 





















4248 
specifies that the module created or 
modified with the FCB statement should be 

formatted for the 3262 Model 5 or 4248 

printer. See Figure 64 on page 174 for the 

format of the 4248 FCB module. 








If the DEVICE parameter is omitted, modules are 
created for the 3800 Model l 










CHARSET | GCM=name 
GRAPHIC can be coded when the REF parameter is coded and 


identifies the graphic character modification 
module that contains the character segments 
referred to by the REF parameter. 









name 
specifies the l- to 4-character 

user-specified name of the graphic 

character modification module. 


If GCM is coded, REF must also be coded. 
should not be coded with ID. 


When neither GCM nor ID 1s coded, the segments 
are copied from the IBM-supplied World Trade 
National Use Graphics graphic character 
modification module. 


GCMLIST=(aqcml[,gem2...1) 
names up to four graphic character modification 
modules to be associated with the character 
arrangement table. When GCMLIST is specified, 
all graphic character modification module name 
fields are changed (if only one module name is 
specified, the other three name fields are set 
to blanks). 












GCM 


































gcmx 
is the l1- to 4-character name of the 
graphic character modification module. Up 
to four module names can be specified. The 
name is put into the character arrangement 
table, whether or not a graphic character 
modification module currently exists with 
that name. However, if the module doesn't 
exist, JEBIMAGE issues a warning message to 
you. The character arrangement table 
should not be used unless all graphic 

character modification modules it refers to 

are stored in an image library. 




















Applicable 


Control 
Parameters Statements Description of Parameters 
ID CHARSET 


can be coded when the REF parameter is coded and 
identifies a library character set that contains 
the character segments referred to by the REF 
parameter. 


aX 
specifies the 2-hexadecimal-digit ID of the 
library character set module. The second 
digit must be odd, and '7F' and 'FF‘ are 
not allowed. 


ID should not be coded with GCM. 


When neither ID nor GCM has been coded, the 
segments are copied from the IBM-supplied World 
Trade National Use Graphics graphic character 
modification module. 


LINES COPYMOD LINES=(starting-linel,lines]) 
specifies the starting line number, and the 
total number of lines to be modified. 


tarting-line 
specifies the starting line number, and is 
expressed as a decimal integer from 1 to 
132. The starting-line value is required. 


specifies the number of lines that are to 
contain the modification segment's text, 
and 1s expressed as a decimal integer from 
1 to 132. When lines is not specified, the 
default is 1 line. 


The sum of starting-line and lines cannot exceed 
133. If the sum exceeds the number of lines 
specified for the form size (see the "FCB 
Statement"), the modifying text is not printed 
on lines past the end of the form. 


LINES FCB LINES=lines 
specifies the total number of lines to be 
contained in an FCB module. 


is the decimal number, from 1 to 256, which 
indicates the number of lines on the page. 


When the LINES, SIZE, and LPI parameters are 
specified in the FCB statement, each parameter 
value is checked against the others to ensure 
that there are no conflicting page-length 
specifications. 


When LINES is not specified, the form length 
defaults to the value of LPI multiplied by the 
value of SIZE, in inches. If no SIZE parameter 
1s specified, LINES defaults to 11 times the 
value of LPI. 


If INCLUDE is specified, the value for LINES may 
be taken from the included FCB module. See the 
discussion under module name. 
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Loc TABLE Loc=((xloclI,{clocl,setnol|FE}1) 
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[,(xloc... oee 

specifies values for some or all of the 256 
translate table entries. Each translate table 
entry identifies one of 64 character positions 
within one of the WCGMs. 


1s an index into the translate table, and 
1s specified as a hexadecimal value from 
X'00" to X'FF'; xloc identifies a translate 
table entry, not the contents of the entry. 


identifies one of the 64 character 
positions within a WCGM, and is specified 
as a hexadecimal value between X'00' and 
X'3F". cloc and setno specify the contents 
of the translate table entry located by 
xloc. When cloc is not specified, the 
default is X'FF', an invalid character. 

You can specify the same cloc and setno 
Values for more than one xloc. 


setno 

identifies one of the WCGMs, and is 
specified as a decimal integer from 0 to 3. 
cloc and setno specify the contents of the 
translate table entry located by xloc. 

When setno 1s not specified, the default is 
0. The setno cannot be specified unless as 
cloc is also specified. You can specify a 
the same cloc and setno values for more Sa 
than one xloc. -* 





Utilities 

















Parameters 








Applicable 
Control 
Statenents 





Description of Parameters 


LPI=(CILC»,nIJIC,C1L0,n])...1) 
specifies the number of lines per inch and the 
number of lines to be printed at that line 
spacing. 


id 
specifies the number of lines per inch, and 
can be 6, 8, or l2 (for the 3800 Model 1); 
6 or 8 Cfor the 3262 Model 5 or 4248); or 
6, 8, 10, or 12 Cfor the 3800 Model 3). 


specifies the number of lines at a line 
spacing of 1. When the printer uses 
common-use paper sizes, nis a decimal 
value from 1 to 60 when ] is 6; from 1] to 
80 when 1 is 8; from 1 to 100 when ] is 10; 
and from 1 to 120 when ] is l2. 


When the printer uses ISO paper sizes, nis 
a value from 1 to 66 when 1] is 6; from 1 to 
88 when ] is 8; from 1 to 110 when ] is 10; 
or from 1 to 132 a lis 12. For the 
paper sizes, see IBM 3800 Printing 
Subsystem Programmer's Guide. 


It is your responsibility to ensure that the 
total number of lines specified results ina 
length that is a multiple of 172 inch. 


The total number of lines cannot result ina 
value that exceeds the usable length of the 
form. For the 3800, do not specify coding for 
the top and bottom 172 inch of the form; 
IEBIMAGE does this for you. 


When the SIZE, LINES, and LPI parameters are 
specified in the FCB statement, each parameter 
value is checked against the others to ensure 
that there are no conflicting page-length 
specifications. For example, SIZE=35 specifies 
a 3-1/2 inch length; acceptable LPI values for 
the 3800 cannot define more than the printable 
2-1/2 inches of this length. 


When you specify more than one Cl.n) pair, 1 
must be specified for each pair and n must be 
specified for each pair except the last. 


When you specify 12 lines per inch, use one of 
the condensed character sets. If other 
character sets are printed at 12 lines per inch, 
the Sie or bottoms of the characters may not 
prin 
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Parameters 


LPI 
Ccontinued) 


| module INCLUDE 
name NAME 
| OVERRUN OPTION 
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Description of Parameters 


When only ] is specified, or when ] 1s the last 
parameter in the LPI list, all remaining lines on the 
page are at ] lines per inch. 


When LPI is not specified, all lines on the page are 
at 6 lines per inch. 


If the total number of lines specified is less than 
the maximum number that can be specified, the 
remaining lines default to 6 lines per inch. 


If INCLUDE is specified, 
taken from the included FCB module. See the 
discussion under module name. 


module name 


OVERRUN={0/6/8]10] 12} 






























the value for LPI may be 


names or identifies a library module. The 
module name is 1 to 4 alphameric and national 
C$, #, and a) characters, in any order, or, for 
a library character set module, a 2-character ID 
that represents two hexadecimal digits (0-9, 
A-F), the second digit being odd. Note that 7F 
and FF cannot be used. 


For a 3800 INCLUDE operation, the named module 
must be the same type as the module being 
created. 
















However, for the 4248 printer, if the named FCB 
module is not found to exist with the prefix 
FCB4, an existing 3211 FCB module (prefix FCB2) 
with the same module name will be used. In this 
case, the values specified for the LINES, SIZE, 
CHx, and LPI parameters on the FCB statement 
will default to the values previously specified 
in the included module if the new values are not 
compatible with the 3211 printer. If the 3211 
module was a default image, the 4248 module will 
also be a default image unless the DEFAULT 
parameter is specified as NO. 





specifies the greatest number of lines per inch 
for which message IEBA33I is to be printed for a 
COPYMOD operation. For example, OVERRUN=8 
allows the message for 6 and 8 lines per inch, 
but suppresses it for 10 and 12 lines per inch. 
Specifying OVERRUN=0 suppresses message IEBA33I 
for every case. If you specify OVERRUN=12, none 
will be suppressed. 


OVERRUN=10 is valid only for the 3800 Model 3. 


If the OPTION statement is omitted, the OVERRUN 
parameter default value is 12, and messages are 
not suppressed. If the OVERRUN parameter is 
omitted, the default value is also 12. 


If the parameter specification is invalid (for 
instance, if OVERRUN=16 is specified), the 
entire operation group does not complete 
successfully. 


For details of using the OVERRUN parameter with 
COPYMOD, see "Using OVERRUN" on page 196 
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— 


























Applicable 
Control 
Statements Description of Parameters 


| | ate 
- 
PSPEED FCB 
CRI 





COPYMOD POS=position 
specifies the starting print position (the 
number of character positions from the left 


margin) of the modifying text. 


position 
specifies the starting print position and 
1s expressed as an integer from 1 to 204. 

See the restriction noted for the TEXT 

parameter below. 



















The maximum number of characters that can fit in 
a print line depends on the pitch of each 
character and the width of the form. 





For the maximum number of characters that can 
fit in a print line for each form width, see JBM 


3800 Printing Subsystem Programmer's Guide. 


PSPEED={LIM/H|N} 

specifies the print speed for the 4248 printer. 
Note that printer speed affects the quality of 
printing; LOW speed provides the best quality. 


L or LOW 
sets the printer speed to 2200 lines per 
minute CLPM). 


MEDIUM 
sets the printer speed to 3000 LPM. 


HIGH 
sets the printer speed te 3600 LPM. 


NOCHANGE 
indicates that the current printer speed 
should remain unchanged. 


If INCLUDE is specified, and the included module 
is formatted for a 4248 printer only, the 
default is the PSPEED value for the included FCB 
poonaes Otherwise, the default is NOCHANGE Cor 


PSPEED is not valid for 3800 FCB modules. 
PSPEED is ignored for 3262 Model 5 FCB modules. 
























































indicates that this module is to be replaced by 
a new module with the same name, if it exists. 
CR) must be coded in parentheses. 
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Control eos 
Parameters Statements Description of Parameters 
REF CHARSET REF=((segno»scloc).»(seqno,cloc)...1) 
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identifies one or more character segments within 
an existing graphic character modification 
module or library character set module. If the 
reference 1s to a GCM, the scan pattern and 
pitch of the character referred to are used, and 
a 6-bit WCGM location code is assigned. If the 
reference is to a character ina library 
character set, the entire segment, including the 
6-bit WCGM location code, is used, unless the 
cloc subparameter is specified for that segment. 
The REF parameter cannot be used to change a 
character's pitch or scan pattern. 


seqgno 
is the segment number, a decimal integer 
between 1 and 999. When a character 
segment is copied from the IBM-supplied 
World Trade National Use Graphics graphic 
character modification module, segno can be 
greater than 64. When the character 
segment 1s copied from a graphic character 
modification or library character set 
module built with the IEBIMAGE program, 
segno is a number from 1 to 64. 


cloc 


specifies a 6-bit code that points to a 
WCGM location, and can be any value between 
X'00' and X'3F'. When a library character 
set segment is referred to, if cloc is not 
specified, the character's 6-bit code | 
remains unchanged when the segment is 
copied. If a graphic character modification 
segment is referred to, cloc must be 
specified. 


The REF parameter can be coded in a CHARSET 
statement that includes the ASSIGN parameter. 





Utilities 















Applicable 





































( : Control 
3 Parameters Statements Description of Parameters 
REF GRAPHIC REF=((segqnol,xlocJ]J£,l(segnol»xlocl])...]) 


identifies one or more character segments within 
an existing graphic character modification 
module. Each character segment contains the 
scan pattern for a character and the 6 bytes of 
descriptive information Cused to locate its 
translate table entry). The 6 bytes of 
descriptive information can be respecified with 
the xloc subparameter. The REF parameter cannot 
be used to change a character's pitch or scan 
pattern. 






seqno 
is the segment number, a decimal integer 
between 1 and 999. When a character 
segment is copied from the IBM-supplied 
World Trade National Use Graphics graphic 
character modification module, seano can be 
greater than 64. When the character 
segment is copied from a graphic character 
modification module built with the IEBIMAGE 

program, segno is a number from 1 to 64. 





specifies an 8-bit data code for the 
character, and can be any value between 
X'00" and X'FFt. You should ensure that 
xloc identifies a translate table entry 
that points to a character position in the 
WCGM Cthat is, the translate table entry 
doesn't contain X'FF'). If xlec is not 
specified, the character's 8-bit data code 
remains unchanged when the segment 1s 
copied. 


The REF parameter can be coded in a GRAPHIC 
statement that includes the ASSIGN parameter. 


SEQ=nn 
specifies the sequence number that must appear 
in columns 25 through 30 of the data statement 
and identifies the line as a data statement; nn 
specifies a line number (Ccorresponding to a line 

on the character design form) and is a 2-digit 

decimal number from 01 to 40. 













SEQ CHARSET 


GRAPHIC 
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Control 
Parameters Statements Description of Parameters 
SIZE FCB SIZE=length 
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enact ties the vertical length of the form, in 
l10ths of an inch. See JBM 3800 Printing 

Subsystem Programmer's Guide for the allowable 
lengths for the 3800. The complete length of 
the form is specified (for example, with the 
3800, SIZE=110 for an ll-inch form) even though 
the amount of space available for printing is 
reduced by the 1/2-inch top and bottom areas 
where no printing occurs. | 


When the SIZE, LINES, and LPI keywords are 
specified in the FCB statement, each parameter 
value is checked against the others to ensure 
that there are no conflicting page-length 
specifications. For example, SIZE=35 specifies 
a 3-1/2 inch length; acceptable LPI: values for 
the 3800 cannot define more than the printable 
2-1/2 inches of this length. 


When SIZE is not specified, the form length 
defaults to the value specified in LINES. If 
LINES is not specified, SIZE is assumed to be 11 
inches (110). 


If INCLUDE is specified, the value for SIZE may 
be taken from the included FCB module. See the 
discussion under module name. 
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Parameters 


TEXT 





Applicable 
Control 
Statements Description of Parameters 


COPYMOD TEXT=( CL dlt, 'text'JLE,C£Ld]t, "text')...1) 
specifies the modifying text. The text is 
positioned on the form based on the LINES and 
FOS parameters and replaces the output data 
set's text in those positions. 


d 
specifies a duplication factor (that is, 
the number of times the text is to be 
repeated). The dis expressed as a decimal 
integer from 1 to 204. If dis not 
specified, the default is l. 


specifies the form in which the text is 
entered: C for character, or X for 
hexadecimal. The t is required. 


specifies the text and is enclosed in 
single quotation marks. 


If the text type is C, you can specify any 
valid character. Blanks are valid 
characters. A single quotation mark is 
coded as two single quotation marks. You 
are not allowed to specify a character that 
results ina X'FF'. If the text type is X, 
the text is coded in increments of two 
characters that specify values between 
X'00" and X'FE*. You are not allowed to 
specify X'FF'. 


The sum of the starting print position (see the 
POS parameter) and the total number of text 
characters cannot exceed 205. If the width of 
the form is less than the amount of space 
required for the text Cbased on character pitch, 
starting position, and number of characters), 
characters are not printed past the right margin 
of the form. 


If a text character specifies a character whose 
translate table entry contains X'FF*t, the 
printer sets the Data Check error indicator when 
the copy modification module is loaded. This 
error indicator can be blocked. 
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TEBIMAGE EXAMPLES 


The following examples illustrate some of the uses of IEBIMAGE. 
Figure 80 can be used as a quick-reference guide to the examples 
that follow. 


In most cases, examples for the 3800 Model 3 can be changed to 
3800 Model 1 examples by deleting the OPTION DEVICE=3800M3 
statement and specifying the OVERRUN parameter equal to a number 
other than 10. See the parameter charts for restrictions on the 
LPI parameter and on data statements. 

Module 


FCB 3800 Model l ll-inch form 1 


FCB 3800 Model 1 


5-1/2 inch form, replaces existing 
SYS1.IMAGELIB member. Multiple 
channel codes specified. 





bh 


FCB 3800 Model 1 3-172 inch form, replaces existing 
SYS1.IMAGELIB member. Varied vertical 
spacing. 
FCB 3800 Model 1 7-inch form, varied vertical spacing. 


FCB 3800 Model 1 12-inch ISO form. Replaces 5 
IBM-supplied module. 

FCB 3800 Model 3 7-172 ianch ISO form. Varied vertical 
spacing. | 









FCB ll-inch form, based on existing 
module. New print speed and copy 


position specified. 


3800 Model 1 G modification segments. 7 


3800 Model 3 | Existing module used as basis for new 
module. OVERRUN specified. 





COPYMOD 
COPYMOD 










TABLE 3800 Model 3 IBM-supplied module modified to 


include another character. 


TABLE 3800 Model 3 


re 
© 


Existing module used as basis for new 
module. Pitch changed. 


TABLE 5800 Model 1 


pe 
-— 


Existing module used as basis for new 
module. Includes user-designed 
characters of GRAPHIC module. 





TABLE 3800 Model 3 


N 


Existing module used as basis for new 
module. New module deletes all 
GRAPHIC references and resets 
translation table entries. 


3800 Model 1 Entire IBM-supplied module printed. 
3800 Model 3 Segments copied from IBM-supplied 14 
module. | 


53800 Model 3 


GRAPHIC 
GRAPHIC 


GRAPHIC 


New module contains a user-designed 
character. Existing character 


arrangement CTABLE) modified to 
include new character. 


a — 
wi WG 





7" 
a 
Ta] 
¢ 
“ 
@ 
fe.) 
So 
oN 
“~ 
01) 
“S 
ce 
p— 
©] 
h 
NO 
we 
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Module 

Created Printer Comments Example 

GRAPHIC 3800 Model 1 Segments copied from existing module. 
User-designed character created. 


GRAPHIC 3800 Model 3 New GRAPHIC module contains a 17 
user-designed character. Existing 
character arrangement CTABLE) modified 
to include new character. COPYMOD 
created to print new character. 

Result tested. 


6 
CHARSET 3800 Model 1 Entire library character set with scan 18 
patterns printed. 
CHARSET 3800 Model 3 Segments copied from IBM-supplied 19 
GRAPHIC module. 
character. Existing character | 
arrangement CTABLE) modified to . 
2l 


















New module contains a user-~designed 


1 
CHARSET 3800 Model 3 20 
include new character. 
CHARSET 3800 Model 1 Segments copied from existing module. 
User-designed character created. 


Figure 80 CPart 2 of 2). IEBIMAGE Example Directory 


EXAMPLE 1: BUILDING A NEW 3800 FORMS CONTROL BUFFER MODULE 


3800 Model 1 


In this example, the vertical spacing and channel codes for an 
ll-inch form are specified, and the module is added to the 
SYS1.IMAGELIB data set as a new member. 


//FCBMOD1 JOB ee 

// EXEC PGM=IEBIMAGE 

S/ASYSUTL DD DSNAME=SYS1.IMAGELIB, DISP=OLD 
/7SYSPRINT DD SYSOUT=A 


S/SYSIN DD xX 
FCB CH1=1,CH12=80,LPI=8 
NAME IJ 

1% 





The control statements are discussed below. 


e The SYSUT1 DD statement includes DISP=OLD to ensure that no 
other job can modify the data set while this job is 
executing. 


e CH1=1 specifies channel 1 code for line 1, allowing for 
positioning at line l 


@ CH12=80 specifies channel 12 code for line 80, allowing for 
positioning at line 80 and a unit exception indication at 
line 80 (the last printable line on the page.) 


e LPI=8 specifies that the entire form is to be at a vertical 


spacing of 8 lines per inch. Because the SIZE parameter is 
omitted, the form length defaults to ll inches. Because 
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EXAMPLE 2: REPLACING A 


3800 Model 1 


In t 
form 
data 
modu 
set! 
the 
dire 


4/ 
17 


we 
Vy, 
Vay 


1% 


The 


EXAMPLE 3: REPLACING A 


3800 Model 1 


In t 
for 
SYS1 
The 


the data set's directory is updated so that it points to the new 


modu 
data 


there are 10 inches of printable space in an ll-inch form, 
80 lines are printed at 8 lines per inch. 


The name of the new FCB module is IJ; it is stored as a 
member of the SYS1.IMAGELIB data set. 


3800 FORMS CONTROL BUFFER MODULE 


his example, the size and channel codes for a 5-1/2 inch 

are specified, and the module is added to the SYS1.IMAGELIB 
set as a replacement for an existing member. The new 

le is added to the end of the data set; the name in the data 
s directory is updated so that it points to the new module; 
sara module can no longer be accessed through the data set's 
ctory. 


FCBMOD2 JOB. 
EXEC PGM=IEBIMAGE 
SYSUT1 DD DSNAME=SYS1.IMAGELIB,DISP=OLD 
SYSPRINT DD SYSOUT=A 
SYSIN DD xX 
FCB CH1=(€1,7,13,20),CH12=26,S5IZE=55 
NAME S55(R) 





control statements are discussed below. 


The SYSUT1 DD statement includes DISP=OLD to ensure that no 
other job can modify the data set while this job is 
executing. 


CH1=(€1,7,13,20) specifies channel 1 code for printable line 
1, line 7, line 13, and line 20. 


CH12=26 specifies channel 12 code for printable line 26. 


SIZE=55 specifies the length of the form as 55 tenths of an 
inch, or 5-1/2 inches. 


Because the LPI parameter is omitted, the vertical spacing 
defaults to 6 lines per inch. Because there are 4-1/2 
inches of printable lines ina 5-1/2 inch form, there are 27 
print lines on this form. 


The name of the FCB module is S55, and it replaces an 
existing FCB module of the same name. The new FCB module is 
stored as a member of the SYS1.IMAGELIB data set. 


3800 FORMS CONTROL BUFFER MODULE 


his example, the vertical spacing, channel codes, and size 
a form are specified, and the module is added to the 

.LMAGELIB data set as a replacement for an existing member. 
new module is added to the end of the data set; the name in 


le; the old module can no longer be accessed through the 
set's directory. 
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//FCBMOD3 JOB... 

// EXEC PGM=IEBIMAGE 

S/SYSUTI DD DSNAME=SYS1.IMAGELIB, DISP=OLD 
“//SYSPRINT DD SYSOUT=A 


7/SYSIN DD xX 
FCB CH1=1,CH2=4,CH5=11,SIZE=35, 
LPI=(€(6,2),08,3),06,4),(8,9)) 
NAME HLCR) 
7% 





The control statements are discussed below. 


e The SYSUT1 DD statement includes DISP=OLD to ensure that no 
other job can modify the data set while this job is 
executing. 


@ CH1=1 specifies channel 1 code for printable line l. 
e CH2=4 specifies channel 2 code for line 4. 
® CH5=11 specifies channel 5 code for line ll. 


e LPI=(€6,2),¢€8,3),€6,4),(8,9)) specifies vertical spacing for 
the first 18 printable lines in the form: 


(6,2) specifies lines 1 through 2 are at a vertical 
spacing of 6 lines per inch, and take up 2/6 inch. 


(8,3) specifies lines 3 through 5 are at a vertical 
( spacing of 8 lines per inch, and take up 3/78 inch. 


(6,49) specifies lines 6 through 9 are at a vertical 
spacing of 6 lines per inch, and take up 4/6 inch. 


(8,9) specifies lines 10 through 18 are at a vertical 
spacing of 8 lines per inch, and take up 1-178 inch. 


e SIZE=35 specifies the length of the form as 35 tenths of an 
inch, or 3-1/2 inches. Because there are 2-1/2 inches of 
printable space on a 3-1/2 inch form, and because the LPI 
parameter specifies vertical spacing for 2-1/2 inches of 
lines, the vertical spacing of all lines in the form is 
accounted for. 


e The name of the FCB module is HL; it replaces an existing 


module of the same name. The new FCB module is stored as a 
member of the SYS1.IMAGELIB data set. 


EXAMPLE 4: BUILDING A NEW 3800 FORMS CONTROL BUFFER MODULE 


3800 Model l 


In this example, the vertical spacing, channel codes, and length 
of a form are specified, and the module is added to the 
SYS1.IMAGELIB data set as a new member. 
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//FCBMODG JOB... : “7 
// EXEC PGM=IEBIMAGE 
//SYSUT1 DD DSNAME=SYS1.IMAGELIB, DISP=OLD 
//SYSPRINT DD SYSOUT=A 
S/SYSIN DD XxX 
FCB CH1=1,CH6=33,SIZE=70, X 
LPI=€€8,32),012,2)) 
NAME TGT 


7% 


The control statements are discussed below. 


@ The SYSUT]1 DD statement includes DISP=OLD to ensure that no 
other job can modify the data set while this job is 
executing. 


@ CH1=1 specifies channel 1 code for printable line l. 
e CH6=33 specifies channel 6 code for line 33. 


@ LPI=€¢€8,32),€12,2)) specifies that the first 32 printable 
lines of the form are to be at a vertical spacing of 8 lines 
per inch, and the next 2 printable lines are to be ata 
vertical spacing of 12 lines per inch. 


® SIZE=70 specifies that the length of the form is 70 tenths 
of an inch, or 7 inches. Because there are 6 inches of 
printable lines in a 7-inch form and the LPI parameter 
specifies 32 lines at 8 lines per inch, or 4 inches, and 2 
lines at 12 lines per inch, or 1/6 inch, the vertical 
spacing for the remaining 1-5/6 inches defaults to 6 lines - 
per inch. ie 


Therefore, the form consists of lines 1 through 32 at 8 
lines per inch, lines 33 through 34 at 12 lines per inch, 
and lines 35 through 45 at 6 lines per inch, with channel 
codes at line l and line 33. 


e The name of the new FCB module is TGT; it is stored as a 
member of the SYS].IMAGELIB data set. 


EXAMPLE 5: REPLACING THE 3800 FORMS CONTROL BUFFER MODULE STD3 


3800 Model 1 


In this example, an FCB module is defined that uses ISO paper 
sizes, replacing the IBM-supplied module named STD3. This must 
be done before the dump-formatting routines that print 

ia aig eae dumps can print them at 8 lines per inch on that 
printer. 


//FCBMOD5 JOB... 

// EXEC PGM=IEBIMAGE 

//SYSUT1 DD DSNAME=SYS1.IMAGELIB, DISP=OLD 
/7SYSPRINT DD SYSOUT=A 


//SYSIN DD xX 
FCB CH1=1,CH12=88,LPI=(8,88),SIZE=120 
NAME STD3C(R) 

7% 
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EXAMPLE 6: 
SIZES 


3800 Model 3 


The control statements are discussed below. 


e The SYSUT1 DD statement includes DISP=OLD to ensure that no 
other job can modify the data set while this job is 
executing. 


e CH1=1 specifies channel 1] code for printable line 1; CH12=88 
specifies channel 12 code for line 88. 


e LPI=(€8,88) specifies that all 88 printable lines of the form 
are to be at a vertical spacing of 8 lines per inch. 


e SIZE=120 specifies that the length of the form is 120 tenths 
of an inch, or 12 inches, which is the longest ISO paper 
size. 


e The name of the new FCB module is STD3; it is to replace the 
existing module of that same name on SYS1.IMAGELIB. 


BUILDING A NEW 3800 FORMS CONTROL BUFFER MODULE FOR ADDITIONAL ISO PAPER 


In this example, an FCB module is defined that uses ISO paper 
sizes and has the ISO Paper Sizes Additional Feature installed. 


//FCBMOD6 JOB ee 
11 EXEC PGM=IEBIMAGE 
//SYSUTI DD DSNAME=SYS1.IMAGELIB, DISP=OLD 


//SYSPRINT DD SYSOUT=A 
S/SYSIN DD xX 
FCB CH1=1,CH12=74,S5IZE=75, 
LPI=(€€10,35),012,4),010,35),6,1)) 
NAME ARU 


LR 





The control statements are discussed below. 


e The SYSUT1 DD statement includes DISP=OLD to ensure that no 
other job can modify the data set while this job is 
executing. 


e CH1=1 specifies channel 1 code for line 1, allowing for 
positioning at line l. 


e CH12=74 specifies channel 12 code for line 74, allowing for 
positioning at line 74 and a unit exception indication at 
line 74 (the last printable line on the page.) 


e LPI=€€10,35),¢€12,4),¢€10,35),(€6,1)) specifies vertical 
spacing for the entire printable area on the form. The last 
printable line on the form must have vertical spacing of 6 
lines per inch. 


° SIZE=75 specifies the length of the form as 75 tenths of an 
inch, or 7-1/2 inches, although the printable area is 7-173 
inches. 


e The name of the new FCB module is ARU; it is stored as a 
member of the SYS1.IMAGELIB data set. 
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EXAMPLE 6A: BUILDING A 4248 FORMS CONTROL BUFFER MODULE 


In this example, a new 4248 default FCB module is built using an (|. 
existing FCB module as a model. The new module, NEW], is added ene 
to SYSI1.IMAGELIB as a new member. The existing module, OLDIL, 

remains unchanged. OLD] may be a 4248 FCB called FCBGOLDI, or 

it may be a 3211 FCB called FCB20LD1. (CIf both modules existed, 
FCB4OLD1 would be used.) | 


//FCBMOD7 JOB 5 Size 

a EXEC PGM=IEBIMAGE 

//SYSUTI DD DSNAME=SYS1.IMAGELIB, DISP=OLD 
7Z/SYSPRINT DD SYSOUT=A 

S/SYSIN DD xX 


OPTION DEVICE=4248 
INCLUDE OLDI 
FCB COPYP=67,PSPEED=M, DEFAULT=YES 
NAME NEW 
7% 





The control statements are discussed below. 


e The SYSUT1 DD statement includes DISP=OLD to ensure that no 
other job can modify the data set while this job is 
executing. 


® DEVICE=4248 on the OPTION statement specifies that this 
module is to be created for the 4248 printer. 


e The INCLUDE statement specifies that a copy of the existing 
Pea OLD] is to be used as a basis for the new module, a 
NEW1. 


@ COPYP=67 indicates that the horizontal copy feature should 
be activated, and that horizontal copies should begin 
printing in the 67th print position from the left margin. 
This setting overrides any COPYP value previously set in 
module OLD1; it applies to module NEW], but does not change 
the value set in OLDI. 


Note that the value 67 divides a 132-hammer printer into two 
equal copy areas for two equally-sized horizontal copies. 
With COPYP=67, a maximum of 66 bytes can be sent to the 
printer. 


e PSPEED=M indicates that the printer speed should be set to 
medium (©3000 LPM). This setting overrides any PSPEED value 
previously set in module OLDI; it applies to module NEWI, 
but does not change the value set in OLDI. 


e DEFAULT=YES indicates that this module, NEW], should become 
a default FCB module for this installation. 


e Because these parameters are not specified, the values of 
LINES, SIZE, LPI, and CHx default to the values which 
already exist in module OLDI. 


e The NAME statement indicates that this module should be 
called NEW]. 
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EXAMPLE 7: BUILDING A NEW COPY MODIFICATION MODULE 


3800 Model 1 


In this example, a copy modification module that contains four 
modification segments is built. The module is added to the 
SYS]1.IMAGELIB data set as a new member. 


COPY2A COPYMOD COPIES=(2,1), 


COPY2B COPYMOD COPIES=(2,1), 


COPYALL COPYMOD COPIES=(1,4), 





//COPMOD1 JOB 
// 


EXEC PGM=IEBIMAGE 


//3SYSUTI DD DSNAME=SYS1.IMAGELIB, DISP=OLD 
Z/SYSPRINT DD SYSOUT=A 

//SYSIN DD xX 

COPY1 COPYMOD COPIES=(1,1), 


LINES=€1,1),P0S=50, 
TEXT=C€C, 'CONTROLLER''S COPY') 


LINES=(1,1),P0S=50, 
TEXT=(C, "SHIPPING MANAGER''S COPY") 


LINES=(€34,3),P05=75, 
TEXT=C€C10C,' ") 


LINES=(€58,1),P0S=35, 
TEXT=CCC, "***"'),0C, "CONFIDENTIAL '), 
(3X4. SC") 

NAME RTO1 


> K KKK KOK OK 


The control statements are discussed below. 


The SYSUT1 DD statement includes DISP=OLD to ensure that no 
other job can modify the data set while this job is 
executing. 


The COPY] COPYMOD statement specifies text that applies to 


each page of the first copy of the output data set: 


LINES=(€1,1) and POS=50 specify that the text is to be on the 
first printable line of each page, starting at the 50th 
print position from the left. 


The TEXT parameter identifies each page of the copy as being 
the "Controller's Copy.™ 


The COPY2A COPYMOD statement specifies text that applies to 
each page of the second copy of the output data set. The 
text is to be on the first line of each page, at the 50th 
print position from the left, with each page of the copy 
being the "Shipping Manager's Copy."™ 


The COPY2B COPYMOD statement specifies that part of the 
second copy's output data set text is to be blanked out, so 
that the first, third, and subsequent copies contain 
information that is not printed on the second copy. The 
blank area is to be on lines 34, 35, and 36, beginning at 
the 75th print position from the left. The text on lines 
34, 35, and 36, between print positions 75 and 84, is to be 
blank (that is, the character specified between the TEXT 
parameter's single quotation marks is a blank). 


The COPYALL COPYMOD statement specifies text that applies to 
the first four copies of the output data set. This example 
assumes that no more than four copies are printed each time 
the job that produces the output data set is executed. The 
text is to be on the 58th line on each page, at the 35th 
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EXAMPLE 8: 


3800 Model 3 


print position from the left. The legend 


M*XXCONFIDENTIALXXX"™ is to be on each page of the copy. Yan 

Note that the text can be coded in both character and (. 

hexadecimal format. eZ 
e The name of the copy modification module is RTOl; it is 


stored as a member of the SYS].IMAGELIB data set. 


BUILDING A NEW COPY MODIFICATION MODULE FROM AN EXISTING COPY 


In this example, a copy of an existing copy modification module, 
RTO1l, is used as the basis for a new copy modification module. 
The new module is added to the SYSI1.IMAGELIB data set as a new 
member. The existing module, RTO1l, remains unchanged and 
available for use. 


//COPMOD2 JOB... 
// EXEC PGM=IEBIMAGE 
//SYSUTI DD DSNAME=SYS1.IMAGELIB, DISP=OLD 
//7SYSPRINT DD SYSOUT=A 
S/SYSIN DD xX 
INCLUDE RTO1,DELSEG=1 


OPTION OVERRUN=8, DEVICE=3800M3 
COPYMOD COPIES=(2,3), 
LINES=€52,6),P0S=100, 
TEXT=C€X, '404040409404040405C5C' ) 
NAME AP 
7% | . ie. 





The control statements are discussed below. 


e The SYSUT1 DD statement includes DISP=OLD to ensure that no 
other job can modify the data set while this job is 
executing. 


e The INCLUDE statement specifies that a copy of the copy 
modification module named RTO1l 1s used as a basis for the 
new module, and that the first modification segment of RTO1 
is to be deleted from the copy. 


e OVERRUN=8 ian the OPTION statement specifies that the 
IEBIMAGE program is to print a warning message if the copy 
modification could cause a line overrun condition when 
printing at 6 and 8 lines per inch. The program is also to 
suppress any warning messages that apply to printing at 10 
and 12 lines per inch. DEVICE=3800M3 in the OPTION 
statement specifies 3800 Model 3 compatibility mode 
processing. 


e The COPYMOD statement specifies text that applies to each 
fines of the second, third, and fourth copies of the output 
data set: 


LINES=€52,6) and POS=100 specify that the text is to be on 

the 52nd line and repeated for the 53rd through 57th lines 

De rae page, starting at the 100th print position from the 
eft. 


The TEXT statement specifies the text in hexadecimal form: 
eight blanks followed by two asterisks Cin this example, the 
assumption is made that X'GO! prints as a blank and that 
X'5C* prints as an asterisk; in actual practice, the 
character arrangement table used with the copy modification 
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module might translate X'40' and X'5C* to other printable 
( - characters). 


® The name of the new copy modification module is AP; it is 
stored as a member of the SYS]1.IMAGELIB data set. 


EXAMPLE 9: ADDING A NEW CHARACTER TO A CHARACTER ARRANGEMENT TABLE MODULE 


3800 Model 3 


In this example, an IBM-supplied character arrangement table 
module is modified to include anotner character, and then added 
to the SYS1.IMAGELIB data set as a replacement for the 
IBM~supplied module. 


“//CHARMODI] JOB... 

/f EXEC PGM=IEBIMAGE 

4/SYSUT1 DD DSNAME=SYS1.IMAGELIB,DISP=OLD 
//SYSPRINT DD SYSOUT=A 

S/SYSIN DD X 


INCLUDE GF10 

OPTION DEVICE=3800M3 

TABLE LOC=((€2A,2A),(06A,2A), CAA, 2A), CEA, 2A)) 
NAME GF1OCR) 





The control statements are discussed below. 


( e The SYSUT1 DD statement includes DISP=OLD to ensure that no 
; other job can modify the data set while this job is 
executing. 


° The INCLUDE statement specifies that a copy of the character 
arrangement table named GF10 is to be used as a basis for 
the new module. 


e The OPTION statement with the DEVICE parameter specifies 
3800 Model 3 compatibility mode processing. 


6 The TABLE statement specifies updated information for four 
translate table entries: X'2A", X"6A", X'AA', and X'EA'. 
(These four locations are unused in the IBM-supplied GF10 
table.) Each of the four translate table entries is to 
point to the '2A' (43rd character) position in the first 
WCGM, which contains the scan pattern for a lozenge. 


e The name of the character arrangement table is GF10, and it 
is stored as a new module in the SYS1.IMAGELIB data set. 
The data set's directory is updated so that the name GF10 
points to the new module; the old GF10 module can no longer 
be accessed through the data set's directory. 
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EXAMPLE 10: 


3800 Model 3 


EXAMPLE 11: 


3800 Model 1 


BUILDING A NEW CHARACTER ARRANGEMENT TABLE MODULE FROM AN EXISTING COPY 


In this example, an existing character arrangement table module 

1s copied and used as a basis for a new module. The new 

character arrangement table is identical to the old one, except 

Se bata the Gothic 15-pitch character set instead of Gothic 
-pitch. 


//CHARMOD2 JOB... 

// EXEC PGM=IEBIMAGE 

//SYSUT1 DD DSNAME=SYS1.IMAGELIB, DISP=OLD 
//SYSPRINT DD SYSOUT=A | 
S/SYSIN DD X 


INCLUDE All 

OPTION DEVICE=3800M3 
TABLE CGMID=87 

NAME Al15 


7% 





The control statements are discussed below. 

$ The SYSUT1 DD statement includes DISP=O0LD to ensure that no 
other job can modify the data set while this job is 
executing. 


e The INCLUDE statement specifies that a copy of the character 


arrangement table named All is to be used as a basis for the - > 


new module. The All character arrangement table translates 
8-bit data codes to printable characters in the Gothic 
10-pitch character set. 


e The OPTION statement with the DEVICE parameter specifies 
3800 Model 3 compatibility mode processing. 


e The TABLE statement specifies a new character set 
identifier, X'87"', which is the identifier for the Gothic 
15-pitch character set. No other changes are made to the 
character arrangement table. The new table calls for 
characters in the Gothic 15-pitch character set. 


@ The name of the new character arrangement table is A115; it 
is stored as a member of the SYS].IMAGELIB data set. 


BUILDING GRAPHIC CHARACTERS IN A CHARACTER ARRANGEMENT TABLE MODULE 


In this example, an existing character arrangement table module 
is copied and used as the basis for a new module that will 
include user-designed characters of a graphic character 
modification module. The new module is then added to the 
SYS1.IMAGELIB data set. 
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EXAMPLE 12: 


3800 Model 3 


//CHARMOD3 JOB 

// EXEC PGM=IEBIMAGE 

f/SYSUT1 DD DSNAME=SYS1.IMAGELIB, DISP=OLD 
//SYSPRINT DD SYSOUT=A 

S/SYSIN DD xX 


INCLUDE ONB 

TABLE GCMLIST=ONBI, 
LOC=(C6F,2F,1),07C,3C,1),(€6A,2A,0)) 

NAME ONBZ 


7X 





The control statements are discussed below. 


e The SYSUT1 DD statement includes DISP=OLD to ensure that no 
other job can modify the data set while this job is 
executing. 


® The INCLUDE statement specifies that a copy of the character 
arrangement table named ONB is to be used as a basis for the 
new module. ONB refers to two WCGMs. 


® The TABLE statement identifies a graphic character 
modification module and stipulates the translate table 
entries for each of its segments: 


GCMLIST=ONB1 identifies the graphic character modification 
module named ONB1l. The LOC parameter specifies the 
translate table entry location, character position, and WCGM 
number for each segment of the module: 


The first segment corresponds to the 88-bit data code 
X'6F'. The segments" scan pattern is to be loaded at 
character position X'2F! (Cthat is, the 48th character 
position) in the second WCGM 


The second segment corresponds to the 8-bit data code 
X'7C*. The segment's scan pattern is to be loaded at 
character position X'3C!' (that is, the 6lst character 
position) in the second WCGM. 


The third segment corresponds to the 88-bit data code 
X'6A'. The segment's scan pattern is to be loaded at 
character position X'2A' (that is, the 43rd character 
position) in the first WCGM. 


e The name of the new character arrangement table is ONBZ; it 
1s stored as a new module in the SYSI]1.IMAGELIB data set. 


DELETING GRAPHIC REFERENCES FROM A CHARACTER ARRANGEMENT TABLE MODULE 


In this example, an existing character arrangement table module 
1S copied and used as a basis for a new one. The new character 
arrangement table deletes references to all graphic character 
modification modules and resets the translate table entries that 
were used to point to character positions for the segments of a 
graphic character modification module. 
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//CHARMOD4 JOB 

// EXEC PGM=IEBIMAGE 

//SYSUTI DD DSNAME=SYS1.IMAGELIB, DISP=OLD 
“7SYSPRINT DD SYSOUT=A 

S/7SYSIN DD xX 


INCLUDE ZYL 

OPTION DEVICE=3800M3 

TABLE GCMLIST=DELETE,LOC=(C6A), (6B)) 
NAME ZYLA 





The control statements are discussed below. 


The SYSUT1 DD statement includes DISP=OLD to ensure that no 
other job can modify the data set while this job is 
executing. 


The INCLUDE statement specifies that a copy of the character 
arrangement table named ZYL is to be used as a basis for the 
new module. 


The OPTION statement with the DEVICE parameter specifies 
3800 Model 3 compatibility mode processing. 


The TABLE statement deletes references to graphic character 
modification modules and resets two translate table entries: 


GCMLIST=DELETE specifies that all names of graphic character 
modification modules included with the module when the ZYL 


character arrangement table was copied are to be reset to 
blanks (X'GO'). 


The LOC parameter identifies two locations in the translate 
table, X'6A" and X'6B', that are to be set to X'FF' Cthe © 
default value when no character position or WCGM values are 
specified). 


The name of the new character arrangement table is ZYLA; it 
1s stored as a member of the SYS1.IMAGELIB data set. 


EXAMPLE 13: LISTING THE WORLD TRADE NATIONAL USE GRAPHICS GRAPHIC CHARACTER 


MODIFICATION MODULE 


3800 Model 1 


In this example, each segment of the IBM-supplied graphic 
character modification module containing the World Trade 
National Use Graphics is printed. Each segment is unique, 
although the scan patterns for some segments are identical to 
other segment's scan patterns with only the 8-bit data code 
being different. 


//GRAFMOD1 JOB... 

// EXEC PGM=IEBIMAGE 

//SYSUTI1 DD DSNAME=SYS1.IMAGELIB, DISP=SHR 
//SYSPRINT DD SYSOUT=A 


S/7SYSIN DD xX 
GRAPHIC 
NAME xX 

1% 
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ai, The control statements are discussed below. 
( e DISP=SHR is coded because the library is not being updated. 


e The World Trade National Use Graphics graphic character 
modification module is identified with the pseudonym of "X*"™, 
The scan pattern of each of the characters in the module is 
printed. 


EeACHas 14: BUILDING A GRAPHIC CHARACTER MODIFICATION MODULE FROM THE WORLD TRADE 


3800 Model 3 


In this example, a graphic character modification module is 
built. Its characters are segments copied from the World Trade 
National Use Graphics graphic character modification module. 
(See the JBM 3800 Printing Subsystem Programmer's Guide for the 
EBCDIC assignments for the characters.) The new module is 
stored in the SYS1.IMAGELIB system data set. 


//GRAFMOD2 JOB... 

// EXEC PGM=IEBIMAGE 

//SYSUT1 DD DSNAME=SYS1.IMAGELIB, DISP=OLD 
/7SYSPRINT DD SYSOQUT=A 


S/SYSIN DD XxX 
OPTION DEVICE=3800M3 


GRAPHIC REF=(€(024),(025) 
(31),033),03 
( NAME CSTW 
7% 





The control statements are discussed below. 


® The SYSUTI1 DD statement includes DISP=OLD to ensure that no 
other job can modify the data set while this job 1s 
executing. 


° DEVICE=3800M3 in the OPTION statement specifies 3800 Model 3 
compatibility mode module format. 


e By not specifying the GCM keyword, the GRAPHIC statement 
identifies the World Trade National Use Graphics graphic 
character modification module. Ten of its segments are to 
be copied and used with the new module. 


e The name of the graphic character modification module is 
CSTW; it is stored as a new module in the SYS]1.IMAGELIB data 
set. 
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EXAMPLE 15: BUILDING A NEW GRAPHIC CHARACTER MODIFICATION MODULE AND MODIFYING A 
CHARACTER ARRANGEMENT TABLE TO USE IT 


3800 Model 3 


In this example, a graphic character modification module is 
built. The module contains one user-designed character, a 
reverse 'E', whose 8-bit data code is designated as X'EO! and 
whose pitch is 10. An existing character arrangement table is 
then modified to include the reverse E 


//GRAFMOD3 JOB... | 
// EXEC PGM=IEBIMAGE 
//SYSUTI1 DD DSNAME=SYS1.IMAGELIB, DISP=OLD 
//SYSPRINT DD SYSOUT=A 
//SYSIN DD Xx 
OPTION DEVICE=3800M3 
GRAPHIC ASSIGN=CE0,10) 
XXXXXXXXXXXXXXX SEQ=10 
XXXXXKXXXXXXKXXX SEQ=]1 
XXXXXXXXXXXXXXX SEQ=12 
XXXX SEQ=13 
XXXX SEQ=14 
XXXX SEQ=15 
XXXX SEQ=16 
XXXX SEQ=1]7 
XXXX SEQ=18 
XXXX SEQ=19 
XXXXXXXXXXXXX SEQ=20 
XXKXXXXXXXXXXX SEQ=21 
XXKXXKXXXKXXKXKX SEQ=22 
XXXX SEQ=23 
XXXX SEQ=24 
XXXKX SEQ=25 
XXXX SEQ=26 
XXXX SEQ=27 
XXXX SEQ=28 
XXXX SEQ=29 
XXXXXXXXXXXKXXXX SEQ=30 
XXXXXXXXKXXXXXX SEQ=3] 
XXXXXXXXXXXXXXX SEQ=32 
NAME BODE 
INCLUDE GS10 
OPTION DEVICE=3800M3 
TABLE CGMID=(83,FF), 
GCMLIST=BODE, 
LOC=(E0,03,1) 
NAME RE10 


The control statements are discussed below. 


e The SYSUT1] DD statement includes DISP=OLD to ensure that no 
other job can modify the data set while this job is 
executing. , 


e DEVICE=3800M3 in the OPTION statement preceding the GRAPHIC 
statement specifies 3800 Model 3 compatibility mode 
processing. | 


® The GRAPHIC statement's ASSIGN parameter establishes the 
88-bit data code, X*'E0', and the width, l10-pitch, for the 
user-~designed character. The data statements that follow 


the GRAPHIC statement describe The character's scan pattern. 
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EXAMPLE 16: 


3800 Model 1 





° The name of the graphic character modification module i 
BODE, and it is stored as a new module in the SYSI1. IMAGELIB 
data set. 


e The INCLUDE statement specifies that a copy of the GS10 
character arrangement table is to be used as the basis for 
the new table. 


e The TABLE statement specifies the addition of the reverse E 
to that copy of the GS10 table. 


CGMID=(83,FF) specifies the character set identifier X'83' 
for the Gothic-10 set (which is the set already used by the 
GS10 table) and specifies X'FF' as a character set 
identifier to allow accessing of the second WCGM without 
loading it. 


GCMLIST=BODE identifies the graphic character modification 
module containing the reverse E for inclusion in the table. 


LOC=(E0,03,1) specifies that the reverse E, which has been 
assigned the 8-bit data code X'E0', is to be loaded into 

position X'03' in the second WCGM. Because this second WCGM 
is otherwise unused, any position in it could have been used 
for the reverse E 


@ The new character arrangement table is named RE10; it is 
stored as a new module in the SYS].IMAGELIB data set. 


BUILDING A GRAPHIC CHARACTER MODIFICATION MODULE FROM MULTIPLE SOURCES 


In this example, a graphic character modification module is 
created. Its contents come from three different sources: nine 
segments are copied from an existing module with the INCLUDE 
statement; the GRAPHIC statement is used to select another 
segment to be copied; the GRAPHIC statement is also used to 
establish characteristics for a user-designed character. The 
new graphic character modification module, when built, is added 
to the SYS1.IMAGELIB. 


//GRAFMODG JOB. 
// EXEC PGM= IEBIMAGE 
S/SYSUTI1 DD DSNAME=SYS1.IMAGELIB,DISP=OLD 
//SYSPRINT DD SYSOUT=A 
S/SYSIN DD xX 
INCLUDE CSTW, DELSEG=3 
GRAPHIC REF=(€1,6A),GCM=BODE,ASSIGN=9A 
KXKXKXKXKXKX SEQ=06 KS 
KRXKKKKKKRK SEQ=07 < 
XXX XXX SEQ=08 
XX XXX SEQ=09 
XXX KKK SEQ=10 
XXX KKXKXX SEQ=1]1 
XXX XKKKKX SEQ=12 
XXX XXX SEQ=13 
¥ XX XXX SEQ=14 
XXX XXX SEQ=15 
XX XXX SEQ=16 
RHR MHRKK KXKX SEQ=17 
XXX XRKXKXKKX SEQ=18 
XXX XXX SEQ=19 
NAME JPCK 
/% 





IEBIMAGE Program 227 








EXAMPLE 17: 
MODULE 


3800 Model 3 


The control statements are discussed below. 


e The SYSUT1 DD statement includes DISP=OLD to ensure that no 
other job can modify the data set while this job 1s 
executing. 


6 The INCLUDE statement specifies that a copy of the graphic 
character modification module named CSTW is to be included 
with the new module. All segments of CSTW, except the third 
segment Cas a result of DELSEG=3), are to be copied into the 
new module and become the module's first through ninth 
modification segments. 


e The GRAPHIC statement specifies the module's tenth and 
eleventh segments: 


REF=(1,6A) and GCM=BODE specify that the 10th segment of the 
new module is to be obtained by copying the first segment 
from the graphic character modification module named BODE. 
In addition, the segment's 88-bit data code is to be changed 
so that its character is identified with the code X'6A'., 


ASSIGN=9A specifies that the new module's 11th segment is a 
user-designed character whose 88-bit data code is X'9A' and 
whose width is l0-pitch (the default when no pitch value is 
specified). The GRAPHIC statement is followed by data 
statements that specify the character's scan pattern. 


® The name of the graphic character modification module is 
JPCK, it is stored as a new module in the SYSI].IMAGELIB data 
set. 


DEFINING AND USING A CHARACTER IN A GRAPHIC CHARACTER MODIFICATION 


In this example, a graphic character modification module 
containing a user-designed character is built. Next, a format 
character arrangement table is modified to include that new 
character. Then, a copy modification module is created to print 
the new character enclosed ina box of format characters. 
Finally, the result is tested to allow comparison of the output 
with the input. 
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//CHAR JOB 
//BUILD 
S/SYSUTI 
//SYSPRINT DD SYSOUT=A 
S/SYSIN DD x 


OPTION DEVICE= 


STEP1 GRAPHIC ASSIGN= 
XXX XXX 
XXX XXX 
XXX XXX 
XXX XXX 


XXXXXXXXXXKXKXXXXXXXXKKXKXK 
XXXAXXXXXXXXXXXXXXXXKXXX 
en na 


XXX 
XXX XXX 
XXX XXX 
XXX XXX 
XXXXXXXKXXKXKKXXAXKAKAKKAKAKKK 
XXXXXXXXKXXKXXXXXXXKXKXXK 
XXXXXXXXKXXXXXXXXXKKKXKK 
XXX XXX XXX 
XXX XXX XXX 
XXX XXX XXX 
XXX XXX XXX 
XXXX XXXXX XXXX 
XXXX XXXXXXX XXXX 
XXXXXXXXXXXXXKXXKXXXX 
XXXXX XXXXXX 


XXXXXXXXXXXXXXXXXXXXXXX 
XXXXXXXXKXXKXXXXXXXXXKXKXX 
XXXXXXXXXXXXXKXXXXXXXXXX 
XXXXKKX 
XXXXXXXKXXXXXXXXXXXK 
XXXXXXXXXXXXKKXXK 
XXXXXXXXXXKXXXXX 
XXXXXXXXXXXAXKXXKXAKKK 
XXXXXXX 
XXXKXKXKXKXXXXKXKXXXXXXKAKXAXX 
XXXXXKXXXXXXXXXXXKKXKXXKX 
XXXXXXXXXXXKXXXXXXKKKXXKX 


NAME AIBM 


EXEC PGM=IEBIMAGE 
DD DSNAME=SYS1.IMAGELIB, DISP=OLD 


3800M3 
5C 

SEQ=01 
SEQ=02 
SEQ=03 
SEQ=04 
SEQ=05 
SEQ=06 
SEQ=07 
SEQ=08 
SEQ=09 
SEQ=10 
SEQ=11 
SEQ=12 
SEQ=13 
SEQ=14 
SEQ=15 
SEQ=16 
SEQ=17 
SEQ=18 
SEQ=19 
SEQ=20 
SEQ=21 
SEQ=22 
SEQ=23 
SEQ=24 
SEQ=25 
SEQ=26 
SEQ=27 
SEQ=28 
SEQ=29 
SEQ=30 
SEQ=31 
SEQ=32 
SEQ=33 
SEQ=34 
SEQ=35 
SEQ=36 
SEQ=37 
SEQ=38 
SEQ=39 
SEQ=40 
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230 


1% 
47 
4/7 
17 


f/f 
// 





OPTION DEVICE=3800M3 

INCLUDE FM10 

TABLE GCMLIST=AIBM,LOC=(5C,2C) 

NAME BIBM 

OPTION DEVICE=3800M3 

COPYMOD COPIES=1,LINES=58,P0S=5, 
TEXT=C(C, "W6X'*) 

COPYMOD COPIES=1,LINES=59,POS=5, 
TEXT=C€C, ' 7X7") 

COPYMOD COPIES=1,LINES=60,PO0S=5, 
TEXT=(€X, 'E9F6E8") 

NAME CIBM 


TEST EXEC PGM=IEBIMAGE 
SYSUT1 DD DSNAME=SYS1.IMAGELIB,DISP=OLD 
SYSPRINT DD SYSOUT=A,CHARS=C(GF10,BIBM), 
MODIFY=CCIBM,1) 
SYSIN DD x 
OPTION DEVICE=3800M3 
GRAPHIC 
NAME AIBM 


The control statements are discussed below. 


The SYSUT1 DD statement includes DISP=OLD to ensure that no 
other job can modify the data set while this job is 
executing. 


The GRAPHIC statement's ASSIGN parameter specifies that the ae Bs 
8-bit data code for the user-designed character is X'5C* and | ‘ 
the width is 10-pitch (the default when no pitch is ee, 
specified). The GRAPHIC statement is followed. by data - 
statements that specify the character's scan pattern for 
vertical line spacing of 6 lines per inch. 


The name of the graphic character modification module is 
AIBM, and it is stored as a new module in SYS].IMAGELIB. 


At STEP2, the INCLUDE statement specifies that a copy of the 
FM10 character arrangement table is to be used as a basis 
for the new module. 


The TABLE statement identifies the graphic character 
modification module named AIBM, created in the previous 
step. The TABLE statement's LOC parameter specifies the 
translate table entry location (the character's 8-bit data 
code) of X'5C* and the position (X'2C') where that character 
is to be loaded into the WCGM. 


The name of the new character arrangement table, which is 
added to SYSI1.IMAGELIB, is BIBM. 


At STEP3, the three COPYMOD statements specify text that is 

to be placed on lines 58, 59, and 60 of the first copy of 

the output data set, starting at print position 5 on each 

line. When used with the BIBM character arrangement table, 

the characters W, 6, and X print as a top left corner, 
horizontal line segment, and top right corner, all in line 
weight 3. The characters 7, *, and 7 print as a weight-3 
vertical line segment on both sides of the user-designed 
character built at STEP] (the asterisk has the EBCDIC 

assignment 5C, which addresses that character). The 

hexadecimal E9, F6, and E8 complete the line-weight-3 Format o 
box around the character. ia % 





The name of the copy modification module is CIBM; it is 
stored as a new module on SYS1.IMAGELIB. 
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EXAMPLE 18: 


3800 Model 1 


EXAMPLE 19: 


3800 Model 3 








e At TEST, the EXEC statement calls for another execution of 
the IEBIMAGE program to test the modules just created. On 
the SYSPRINT DD statement the BIBM character arrangement 
table is the second of two specified, and the CIBM copy 
modification module is specified with a table reference 
character of 1, to use that BIBM table. 


e The GRAPHIC statement with no operand specified calls for 
printing of the module, AIBM, specified with the NAME 
statement that follows it. Each page of the output listing 
for this IEBIMAGE run has the following modification printed 
in the lower left corner: 


® The OPTION statement with the DEVICE parameter at STEPI, 
STEP2, and STEP3 specifies 3800 Model 3 compatibility mode 
module format and processing considerations. 


LISTING A LIBRARY CHARACTER SET MODULE 


In this example, each segment of a library character set is 
printed. The scan pattern of each of the characters in the 
module is printed. 


“7LIBMODL JOB... 

// EXEC PGM=IEBIMAGE 

4/SYSUT1 DD DSNAME=SYS1.IMAGELIB,DISP=SHR 
//SYSPRINT DD SYSOUT=A 


S/SYSIN DD xX 
CHARSET 
NAME 83 
7 





The control statements are discussed below. 


6 NAME specifies the name of the library character set (83). 


BUILDING A LIBRARY CHARACTER SET MODULE 


In this example, a library character set module is built. Its 
characters are segments copied from the World Trade National Use 
Graphics graphic character modification module. For the listing 
of all the segments of that module, (see JBM 3800 Printing 
Subsystem Programmer's Guide. The EBCDIC assignments for the 
characters are replaced by WCGM-location codes.) The new module 
is stored in the SYS1.IMAGELIB system data set. 
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//LIBMOD2 JOB... \ 
// EXEC PGM=IEBIMAGE | 

f/SYSUT1 DD DSNAME=SYS1.IMAGELIB, DISP= OLD. 

//SYSPRINT DD SYSOUT=A 


Leper 


S/SYSIN DD xX 
OPTION DEVICE=3800M3 
CHARSET REF=(€24,01),025,02),026,03),027,049),(028,05), X 
(31,06),033,07),035,08),038,09),(040,0A)) 
NAME | 73 


3 





The control statements are discussed below. 


e The SYSUT1 DD statement includes DISP=OLD to ensure that no 
other job can modify the data set while this job is 
executing. 


e DEVICE=3800M3 in the OPTION statement specifies 3800 Model 3 
compatibility mode module format. 


6 By not specifying the GCM keyword or a library character set 
ID, the CHARSET statement identifies the World Trade 
National Use Graphics graphic character modification module. 
Ten of its segments are to be copied and used with the new 
module. For example, the 24th segment is to be copied and 
a the WCGM location 01. See the REF parameter 

24,0 


e The name of the library character set module is 73, and it 
is stored as a new module in the SYS1.IMAGELIB data set. 


EXAMPLE 20: BUILDING A LIBRARY CHARACTER SET MODULE AND MODIFYING A CHARACTER 
ARRANGEMENT TABLE TO USE IT 


3800 Model 3 


In this example, a library character set module is built. The 
module contains one user-designed character, a reverse 'E', 
whose 6-bit WCGM-location code is designated as X'03', and whose 
pitch is 10. An existing character arrangement table is then 
modified to include the reverse E 
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“/ 
17 
// 
1/7 
“/ 





LIBMOD3 JOB... 
EXEC PGM=IEBIMAGE 
SYSUT] DD DSNAME=SYS1.IMAGELIB, DISP=OLD 
SYSPRINT DD SYSOUT=A 
SYSIN DD xX 
OPTION DEVICE=3800M3 
CHARSET ASSIGN=(€03,10) 
XAXXXXXXXXXXKXXXX SEQ=10 
XXXXKKXXXXXKXXXX SEQ=11 
XXXXXXKXXKXXXXXXX SEQ=12 
XXXX SEQ=13 
XXXX SEQ=14 
XXXX SEQ=15 
XXXX SEQ=16 
KAXXX SEQ=17 
XXXX SEQ=18 
XXXX SEQ=19 
XXXXXXXXXKXXXX SEQ=20 
XXXXXXXXXXXXX SEQ=2] 
XAXXXXKXXXXXXX SEQ=22 
XXXX SEQ=23 
XXXX SEQ=24 
XXXX SEQ=25 
XXXX SEQ=26 
XXXX SEQ=27 
XXXX SEQ=28 
XXXX SEQ=29 
XXXXXKXXXXXXXXXX SEQ=30 
XXXXKXXXXXXXXXXX SEQ=31 
XXXXXXXKXXKXXXXXXK SEQ=32 
NAME (e 
INCLUDE GS10 
OPTION DEVICE=3800M3 
TABLE CGMID=(€83,73),LOC=CE0,03,1) 
NAME RE1O 


The control statements are discussed below. 


The SYSUT1 DD statement includes DISP=OLD to ensure that no 
other job can modify the data set while this job is 
executing. 


DEVICE=3800M3 in the OPTION statement specifies 3800 Model 3 
compatibility mode module format and processing 
considerations. 


The CHARSET statement's ASSIGN parameter establishes the 
6-bit WCGM-location code, X'03', and the width, l10-pitch, 
for the user-designed character. The data statements that 
follow the CHARSET statement describe the character's scan 
pattern. 


The name of the library character set module is 73, and it 
is stored as a new module in the SYS]1.IMAGELIB data set. 


The INCLUDE statement specifies that a copy of the GS10 


character arrangement table is to be used as the basis for 
the new table. 
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EXAMPLE 21: 


3800 Model 1 
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6 The TABLE statement specifies the addition of the library 
character set containing the reverse E to that copy of the 
GS10 table. 7 | 


CGMID=(83,73) specifies the character set identifier X'83' hee 
for the Gothic-10 set (which is the set already used by the 

GS10 table) and specifies X'73' as a character set 

identifier to allow loading of the second WCGM with the 

library character set 73. 


LOC=C€E0,03,1) specifies that the reverse E, which has been 
assigned the WCGM location 03 in the second WCGM, is to be 
referenced by the EBCDIC code X'EO’'. 


e The new character arrangement table is named RE10; it is 
stored as a new module in the SYS].IMAGELIB data set. 


BUILDING A LIBRARY CHARACTER SET MODULE FROM MULTIPLE SOURCES 


In this example, a library character set module is created. Its 
contents come from three different sources: 62 segments are 
copied from an existing module with the INCLUDE statement; the 
CHARSET statement is used to select another segment to be 
copied; a second CHARSET statement is used to establish 
characteristics for a user-designed character. The new library 
character set module, when built, is added to the SYS].IMAGELIB. 


//LIBMODG JOB... 
7 EXEC PGM=IEBIMAGE a 
//SYSUTI DD DSNAME=SYS1.IMAGELIB,DISP=OLD ON 
//SYSPRINT DD SYSOUT=A ae 
//SYSIN DD xX o 
INCLUDE 33,DELSEG=(3,4) 
CHARSET REF=(€1,02),GCM=BODE,ASSIGN=03 
XXX KKK SEQ=06 
KKKKK KK XK SEQ=07 
XXX XXX SEQ=08 
XXX SEQ=09 
KKK SEQ=10 
XXX XX SEQ=11 
XXXXXX SEQ=12 
XXX SEQ=13 
KKK SEQ=14 
XX SEQ=15 
XX SEQ=16 
XXXN XXX SEQ=17 
¥XX% XKKXKKXX SEQ=18 
XXX XXXXX SEQ=19 
NAME 53 
/* 











ee RET ON ORIN TSE ey RPT 





The control statements are discussed below. 


The SYSUT1 DD statement includes DISP=0OLD to ensure that no 
other job can modify the data set while this job is 
executing. 


The INCLUDE statement specifies that a copy of the library 
character set module named 33 is to be included with the new 
module. All segments of 33, except the third and fourth 
segments Cas a result of DELSEG=3,4), are to be copied into 
the new module and become the basis for the new module. 


The CHARSET statement specifies the module's third and 
fourth segments: 


REF=€1,02) and GCM=BODE specify that the third segment of 
the new module is to be obtained by copying the first 
segment from the graphic character modification module named 
BODE. The segment's 6-bit WCGM-location code is to be set 
so that its character is identified with the code X'02'. 


ASSIGN=03 specifies that the new module's fourth segment is 
a user-designed character whose 6-bit WCGM-location code is 
X'03' and whose width is l10-pitch (the default when no pitch 
value is specified). The CHARSET statement is followed by 
data statements that specify the character's scan pattern. 


The name of the library character set module is 53, it is 
stored as a new module in the SYS].IMAGELIB data set. 
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TEBISAM PROGRAM 


IEBISAM can be used to: 


e Copy an indexed sequential CISAM) data set directly from one 
7 DASD volume to another. 


e Create a backup (transportable) copy of an ISAM data set by 
copying Cunloading) it into a sequential data set on a DASD 
or magnetic tape volume. 


° Create an ISAM data set from an unloaded data set. The 
sequential Cunloaded) data set 1s ina form that can be 
subsequently loaded, that is, it can be converted back into 
an ISAM data set. 


@ Print an ISAM data set. 


COPYING AN ISAM DATA SET 


IEBISAM can be used to copy an indexed sequential CISAM) data 
set directly from one DASD volume to another. When the data set 
is copied, the records marked for deletion are only deleted if 
the DELETE parameter was specified in the OPTCD Coptional 
control program service) field. Those records that are 
contained in the overflow area of the original data set are 
moved into the primary area of the copied data set. Control 
information characteristics such as BLKSIZE and OPTCD can be 
overridden by new specifications. Caution should be used, 
however, when overriding these characteristics (see "Overriding 
DCB Control Information" on page 237). 


CREATING A SEQUENTIAL BACKUP COPY re 


An unloaded sequential data set can be created to serve as a 
backup or transportable copy of source data from an ISAM data 
set. Records marked for deletion within the ISAM data set are 
automatically deleted when the unloaded data set is created. 
When the data set is subsequently loaded—reconstructed into an 
ISAM data set-——records that were contained in the overflow area 
assigned to the original data set are moved sequentially into 
the primary area. 


An unloaded data set consists of 80-byte logical records. The 
data set contains: 


e Fixed records from an ISAM data set 
e Control information used in the subsequent loading of the 
data set 


Control information consists of characteristics that were 
assigned to the ISAM data set. These characteristics are: 


Optional control program service COPTCD) 
Record format CRECFM) 
Logical record length CLRECL) 
Block size (CBLKSIZE) 
Relative key position CRKP) 
Number of tracks in master fades CNTM) 
Key length CKEYLEN) 
Number of overflow tpt on each cylinder CCYLOFL) 
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OVERRIDING DCB CONTROL INFORMATION 


When a load operation is specified, control information 
characteristics can be overridden by specifications in the DCB 
parameter of the SYSUT2 DD statement Crefer to "Job Control 
Statements" on page 240 for a discussion of the SYSUT2 DD 
statement). Caution should be used, however, because checks are 
made to ensure that: 


Ls 


Record format is the same as that of the original indexed 
sequential data set Ceither fixed (CF) or variable (V) 
length). 


Logical record length is greater than or equal to that of 
the original ISAM data set when the RECFM is variable (V) or 
variable blocked CVB). 


For fixed records, the block size is equal to or a multiple 
of the logical record length of the records in the original 
indexed sequential data set. For variable records, the 
block size is equal to or greater than the logical record 
length plus four. 


Relative key position is equal to or less than the logical 
record length minus the key length. Following are relative 
key position considerations: 


e If the RECFM is V or VB, the relative Key position 
should be at least 4. 


@ If the DELETE parameter was specified in the OPTCD field 
and the RECFM is F or fixed blocked (FB), the relative 
key position should be at least l. 


® If the DELETE parameter was specified in the OPTCD field 
and the RECFM is V or VB, the relative key position 
should be at least 5. 


The key length is less than or equal to 255 bytes. 


For a fixed unblocked data set with RKP=0, the LRECL value 
is the length of the data portion, not, as in all other 
cases, the data portion and key length. When changing an 
RKP=0 data set RECFM from fixed unblocked and to fixed 
blocked, the new LRECL must be equal to the old LRECL plus 
the old key length. 


If either RKP or KEYLEN is overridden, it might not be 
possible to reconstruct the data set. 


The number of 80-byte logical records in an unloaded data 
set can be approximated by the following formula: 


x = nCyt2) + 158 
78 


where x is the number of 80-byte logical records created, n 
is the number of records in the ISAM data set, and y is the 
ate of a fixed record or the average length of variable 
records. 


Figure 81 on page 238 shows the format of an unloaded data 
set for the first three 100-byte records of an ISAM data 
set. Each is preceded by 2 bytes (bb) that indicate the. 
number of bytes in that record. (The last record is 
followed by 2 bytes containing binary zeros to identify the 
last logical record in the unloaded data set.) The 
characteristics of the ISAM data set are contained in the 
first two logical records of the unloaded data set. Data 
from the ISAM data set begins in the third logical record. 
Fach logical record in the unloaded data set contains a 
alleles sequence number (aa) in the first 2 bytes of the 
record. 7 
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7. ‘For variable records, all records in the data set must have 
a length equal to or greater than RKP plus KEYLEN. 





80 bytes 


LE eae TT ane 


Characteristics 


a 
| 
ja} b[b| 76 bytes of data 
| 
| 
a 






24 bytes of data [b} b 52 bytes of data 
48 bytes of data |b] b] 28 bytes of data 
72 bytes of data Ibfb} 






Figure 81. An Unloaded Data Set Created Using IEBISAM 





CREATING AN ISAM DATA SET FROM AN UNLOADED DATA SET 


An ISAM data set can be created from an unloaded version of an 
ISAM data set. When the unloaded data set is loaded, those 
records that were contained in the overflow area assigned to the 
original ISAM data set are moved sequentially into the primary 
area of the loaded ISAM data set. 


PRINTING THE LOGICAL RECORDS OF AN ISAM DATA SET 


The records of an ISAM data set can be printed or stored as a 
sequential data set for subsequent printing. Each input record | 
is placed in a buffer from which it is printed or placed ina ae. 
sequential data set. When the DELETE parameter is specified in — 
the OPTCD field, each input record not marked for deletion is 

also placed ina buffer from which it is printed or placed in a 
sequential data set. Each printed record is converted to 

hexadecimal unless specified otherwise by you. 


IEBISAM provides user exits so you can include user-written 
routines to: 


e Modify records before printing. 


6 Select records for printing or terminate the printing 
operation after a certain number of records have been 
printed. 


e Convert the format of a record to be printed. 


e Provide a record heading for each record if the record 
length is at least 18 bytes. | 


If no user routines are provided, each record is identified in 
sequential order on the printout. 


Exit routines must be included in either the job library or the 
link library. 


When a user routine is supplied for a print operation, IEBISAM 

issues a LOAD macro instruction. A BALR 14,15 instruction is 

used to give control to the user's routine. When the user's 

routine receives control, register 0 contains a pointer to a 

record heading buffer; register 1 contains a pointer to an input 
record buffer. (You must save registers 2 through 14 when _ 
control is given to the user routine.) go 
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The input record buffer has a length equal to that of the input 
logical record. 


| ( , Figure 82 shows the record heading buffer. 


You return control to IEBISAM by issuing a RETURN macro 
instruction (via register 149) or by using a BR 14 instruction 
after restoring registers 2 through 14. 


A user routine must place a return code in register 15 before 
returning control to IEBISAM. The possible return codes and 
their meanings are listed in Figure 83. 







Reyister 0 Aecord 


number 
(decimal) 


Available to the user mmm 
eee length = line length of applicable printes ———————_-_—_e> 


Register 1 


input record 


ae Total length = input logical record length (LRECL) 


Figure 82. Record Heading Buffer Used by IEBISAM 





Codes Meaning 

00 (00 hex) Buffers are to be printed. The operation 
continues. 

0G (04) Buffers are to be printed. The operation is 
terminated. the operation is terminated. 

08 (08) This input record is not to be printed. Processing 
continues. 

l2 (0C) This input record is not to be printed. The 


operation is terminated. 


Figure 83. IEBISAM User Exit Return Codes 


PUT D_O U 


IEBISAM uses an input data set (the organization of the input 
data set depends on the operation to be performed) as follows: 


® If a data set is copied, unloaded, or printed in logical 
sequence, the input is an ISAM data set. 


e If a data set is loaded, the input is an unloaded version of 
an ISAM data set. 
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IEBISAM produces as output: 


e An output data set, which is the result of the IEBISAM —_— 
operation 2 i 


e A message data set, which contains information messages and 
any error messages 


RETURN CODES 


IEBISAM returns a code in register 15 to indicate the results of 
program execution. The return codes and their meanings are 
listed Figure 84. 





Codes Meaning 
00 (00 hex) Successful completion. 


04 (04) A return code of 04 or 12 was passed to IEBISAM by 
the user routine. 


08 (08) An error condition occurred that caused termination 
of the operation. 
l2 (0C) A return code other than 00, 0494,.08, or 12 was 


passed to IEBISAM from a user routine. The job 
step is terminated. 


16 (10) An error condition caused termination of the 
| operation. 


Figure 84. IEBISAM Return Codes 


CONTROL 


IEBISAM is controlled by job control statements only. No 
utility control statements are required. 


JOB CONTROL STATEMENTS 
Figure 85 shows the job control statements for IEBISAM. 





Statement Use 
JOB Initiates the job. 
EXEC Specifies the program name CPGM=IEBISAM). 


Additional information is required on the EXEC 
statement to control the execution of IEBISAM; see 
"PARM Information on the EXEC Statement,™ below. 
SYSUT1 DD Defines the input data set. 
SYSUT2 DD Defines the output data set. 


SYSPRINT DD Defines a sequential message data set, which can be 
written to a system output device, a tape volume, 
or a direct access device. 


Figure 85. Job Control Statements for IEBISAM 
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C 


If the block size of the SYSPRINT data set is not a multiple of 
121, a default value of 121 is taken (no error message is 
issued, and no condition code is set). 


PARM Information on the EXEC Statement 





The PARM parameter on the EXEC statement is used to control the 
execution of IEBISAM. 


The format of the PARM parameter is: 


PARM={COPY|[UNLOAD|LOAD|PRINTLI,N1]} 


[,EXIT=routinename] 





Exit routines must be included in either the job library or the 
link library. 


For a COPY operation, the SYSUT2 DD statement must include a 
primary space allocation that is sufficient to accommodate 
records that were contained in overflow areas in the original 
ISAM data set. New overflow areas can be specified when the 
data set 1s copied. 


For an UNLOAD operation, specifications that are implied by 
default or included in the DCB parameter of the SYSUT2 DD 
statement (for example, tape density) must be considered when 
the data set is subsequently loaded. If a block size is 
specified in the DCB parameter of the SYSUT2 DD statement, it 
must be a multiple of 80 bytes. 


For a LOAD operation, if the input data set resides on 
unlabeled tape, the SYSUT1] DD statement must specify a BLKSIZE 
that is a multiple of 80 bytes. Specifications that are implied 
by default or included in the DCB parameter of the SYSUT1 DD 
statement must be consistent with specifications that were 
implied or included in the DCB parameter of the SYSUT2 DD 
statement used for the UNLOAD operation. The SYSUT2 DD 
statement must include a primary space allocation that is 
sufficient to accommodate records that were contained in 
overflow areas in the original ISAM data set. If new overflow 
|. are desired, they must be specified when the data set is 
oaded | 


For a PRINTL operation, if the device defined by the SYSUT2 DD 
statement is a printer, the specified BLKSIZE must be equal to 
or less than the physical printer size; that is 121, 133, or 145 
bytes. If BLKSIZE is not specified, 121 bytes is assumed. 

LRECL Cor BLKSIZE when no LRECL was specified) must be between 
55 and 255 bytes. 


If a user routine is supplied for a PRINTL operation, IEBISAM 
issues a LOAD macro instruction to make the user routine 
available. A BALR 14,15 instruction is subsequently used to 
give control to the routine. When the user routine receives 
control, register 0 contains a pointer to a record heading 
buffer; register 1 contains a pointer to an input record buffer. 
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Applicable 
Control : | 
Parameters Statements Description of Parameters 


EXEC PARM={COPY |UNLOAD|LOAD| PRINTLL,N1]} 
[,EXIT=routinenamel] 


The PARM values have the following meaning: 
COPY specifies a copy operation. 


UNLOAD specifies an unload operation. This is 
the default. 


LOAD specifies a load operation. 


PRINTL specifies a print operation in which each 
record is converted to hexadecimal before 
printing. The N is an optional value that 
specifies that records are not to be converted to 
hexadecimal before printing. 


‘EXIT is an optional value that specifies the name 
of the exit routine that is to receive control 
before each record is printed. 

See "PARM Information on the EXEC Statement™ on 


page 24] for values that must be coded with the PARM 
parameter. 


The following examples illustrate some of the uses of IEBISAM. 
Figure 86 can be used as a quick-reference guide to IEBISAM 
examples. The numbers in the "Example™ column point to the 
examples that follow. 


Data Set 
Operation Organization Device Comments 
COPY ISAM Disks Unblocked input; blocked 
output. Prime area and 
index separation. 
UNLOAD ISAM, Disk and Blocked output. 
Sequential 9-track Tape 
UNLOAD ISAM, Disk and Blocked output. Data set 3 
Sequential 7-track Tape written as second data set 
on input volume. 
LOAD Sequential, 9-track Tape Input data set 1s second G 
ISAM and Disk data set on tape volume. 














PRINTL ISAM, Disk and Blocked input. Output not 
Sequential System Printer converted. 






Figure 86. IEBISAM Example Directory 


Examples that use disk or tape in place of actual device numbers 
must be changed before use. See "DASD and Tape Device Support" 
on page 3 for valid device number notation. 
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IEBISAM EXAMPLE 1 


a In this example, an ISAM data set is copied from two DASD 
q volumes. The output data is blocked. 

S/CPY JOB 

// EXEC PGM= IEBISAM, PARM=COPY 


/7SYSPRINT DD SYSOUT=A 
//SYSUTI DD DSNAME=ISAMO1, VOLUME=SER=(222222, 333333), 


// 
4 


DISP=COLD, DELETE),UNIT=(disk,2), 
DCB=(DSORG=IS,LRECL=500, 
BLKSIZE=500, RECFM=F,RKP=4) 


1/ 
7/SYSUT2 DD DSNAME=ISAMO2CINDEX),UNIT=disk, 


// 
ff 
1/ 
4/ 
// 
rd 
// 
7X 


DISP=(NEW, KEEP), VOLUME=SER=444444, 
DCB=C(DSORG=1S, BLKSIZE=1000,RECFM=FB), 
SPACE=(CYL,(€2)) 

DD DSNAME=ISAMO2(PRIME),UNIT=Cdisk,2), 
DCB=(DSORG=1S, BLKSIZE=1000,RECFM=FB), 
SPACE=C(CYL,(€10)), 
VOLUME=SER=(444444, 555555), DISP=CNEW, KEEP) 


The job control statements are discussed below: 


( 


IEBISAM EXAMPLE 2 


EXEC specifies the program name CIEBISAM) and the COPY 
operation. 


SYSUT1 DD defines an ISAM input data set, ISAMO1, which 
resides on two disk volumes. 


SYSUT2 DD defines the output data set index area, ISAM02; 


the 


The 
Ten 
the 


index and prime areas are separated. 


second SYSUT2 DD defines the output data set prime area. 
cylinders are allocated for the prime area on each of 
two disk volumes. 


In this example, an ISAM input data set is converted into a 
ope ca data set; the output is placed on a 9-track tape 
volume. 


4/STEPI JOB 


// 


EXEC PGM= TEBISAM, PARM=UNL OAD 


Z/7SYSPRINT DD SYSOUT=A 
//SYSUT1 DD DSNAME=INDSEQ,UNIT=disk, DISP=COLD,KEEP), 


1/ 


/f 
17 
7% 





VOLUME=SER=111112 , 
“7 3SYSUT2 DD DSNAME=UNLDSET,UNIT=tape,LABEL=(,5SL), 


DISP=(, KEEP), VOLUME=SER=001234, 
DCB=CRECFM=FB, LRECL=80, BLKSIZE=640) 
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The job control statements are discussed below: 


® EXEC specifies the program name CIEBISAM) and the UNLOAD | 
operation. ‘ / 


® SYSUT1 DD defines the ISAM input data set, INDSEQ, which 
resides ona disk volume. 


® SYSUT2 DD defines the unloaded output data set, UNLDSET. 
The data set consists of fixed blocked records, and is to 
reside as the first or only data set on a 9-track tape 
volume. | 


IEBISAM EXAMPLE 3 


In this example, ISAM input is converted into a sequential data 
set and placed on a 7-track, tape volume. 


//STEPA JOB acs 

17 EXEC PGM=ILEBISAM, PARM=UNLOAD 

“//7SYSPRINT DD SYSOUT=A 

S/SYSUTI DD DSNAME=INDSEQ,UNIT=disk, DISP=COLD,KEEP), 
// VOLUME=SER=111112 


S/SYSUT2 DD DSNAME=UNLDSET,UNIT=2400-2,LABEL=(€2,SL), 

// VOLUME=SER=001234, DCB=(DEN=2, 
RECFM=FB,LRECL=80,BLKSIZE=1040, TRICH=C), 
DISP=(C, KEEP) 





The job control statements are discussed below: 


° EXEC specifies the program name CIEBISAM) and the UNLOAD 
operation. 


° SYSUT1 DD defines the input data set, INDSEQ, which is an 
indexed sequential data set. The data set resides ona disk 
volume. 


e SYSUT2 DD defines the unloaded output data set, UNLDSET. 
The data set consists of fixed blocked records, and is to 
reside as the second data set ona 7-~track tape volume. The 
ie set is written at a density of 800 bits per inch 
=2). 


IEBISAM EXAMPLE 4& 


In this example, an unloaded data set is converted to the form 
of the original ISAM data set. 


7/STEPA JOB... 

vA A EXEC PGM=IEBISAM, PARM=LOAD 

7/SYSPRINT DD SYSOUT=A 

//SYSUTI DD DSNAME=UNLDSET,UNIT=tape,LABEL=(2,5L), 
DISP=COLD, KEEP), VOLUME=SER=001234 


Sf 

//SYSUT2 DD DSNAME=INDSEQ, DISP=(€,KEEP),DCB=C(DSORG=IS), 
// SPACE=(CYL,(€1)),VOLUME=SER=111112, 

// UNIT=disk 

/* 
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ITEBISAM EXAMPLE 5 


The job control statements are discussed below: 


e EXEC specifies the program name (CIEBISAM) and the LOAD 
operation. | 

e SYSUT1 DD defines the input data set, UNLDSET, which is a 
sequential Cunloaded) data set. The data set is the second 
data set on a tape volume. 


¢ SYSUT2 DD defines the output data set, INDSEQ which is an 
ISAM data set. One cylinder of space is allocated for the 
data set ona disk volume. 


In this example, the logical records of an ISAM data set are 
printed on a system output device. 


//PRINT JOB... | 
// EXEC PGM=IEBISAM, PARM="PRINTL,N! 
7/SYSPRINT DD SYSOUT=A 


S/SSYSUT1 DD DSNAME=ISAM03,UNIT=disk, DISP=OLD, 
// VOLUME=SER=222222 

//SYSUT2. DD SYSOUT#=A 
1*® 





The job control statements are discussed below: 


° EXEC specifies the program name CIEBISAM) and the PRINTL 
operation. The output records are not converted to 
hexadecimal prior to printing. (N is specified). 


e SYSUT1 DD defines the input data set, ISAM03, which resides 
on a disk volume. | 


e SYSUT2 DD defines the output data set (in this case, the 


system printer). A legical record length CLRECL) of 121 
bytes 1S assumed. 
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ITEBPTPCH OGRA 


IEBPTPCH is a data set utility used to print or punch all, or 
selected portions, of a sequential or partitioned data set. 
Records can be printed or punched to meet either standard 
specifications or user specifications. 


The standard specifications are: 


e Each logical output record begins on a new printed line or 
punched card. 


e Each printed line consists of groups of 8 characters 
separated by 2 blanks. Each punched card contains up to 80 
contiguous bytes of information. 


e Characters that cannot be printed appear as blanks. 


e When the input is blocked, each logical output record is 
delimited by "™X*" and each block is delimited by "*x,™ 


User formats can be specified, provided that no output record 
exceeds the capability of the output device. 


ITEBPTPCH provides optional editing facilities and exits for user 
routines that can be used to process labels or manipulate input 
or output records. 


IEBPTPCH can be used to print or punch: 

e A sequential or partitioned data set in its entirety 

e Selected members from a partitioned data set 

e Selected records from a sequential or partitioned data set 
e The directory of a partitioned data set 


e An edited version of a sequential or partitioned data set 


PRINTING OR PUNCHING AN ENTIRE DATA SET 


IEBPTPCH can be used to print or punch a sequential data set or 
a partitioned data set in its entirety. Data to be printed or 
punched can be either hexadecimal or a character representation 
of valid alphameric bit configurations. For a print operation, 
packed decimal data should be converted to unpacked decimal or 
hexadecimal mode to ensure that all characters are printable. 

| 


For a standard print operation, each logical record is printed 
in groups of) eight characters. Each set of eight characters is 
separated from the next by two blanks. Up to 96 data characters 
can be included ona printed line. (CAn edited output can be 
produced to/omit the blank delimiters and print up to 144 
characters.per line.) | 


Data from a logical input record is punched in contiguous 
columns in the punched card(s) representing that record. 
Sequence numbers can be created and placed in columns 73 through 
80 of the punched cards. 
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PRINTING OR PUNCHING SELECTED MEMBERS | 


IEBPTPCH can be used to print or punch selected members of a 
partitioned data set. Utility control statements are used to 
specify members to be printed or punched. 


PRINTING OR PUNCHING SELECTED RECORDS 


IEBPTPCH can be used to print or punch selected records from a 
sequential or partitioned data set. Utility control statements 
can be used to specify: 


e The termination of a print or punch operation after a 
specified number of records has been printed or punched. 


e The printing or punching of every pth record. 


c) The starting of a print or punch operation after a specified 
number of records. 


PRINTING OR PUNCHING A PARTITIONED DIRECTORY 


IEBPTPCH can be used to print or punch the contents of a 
partitioned directory. Each directory block is printed in 
groups of eight characters. If the directory is printed in 
hexadecimal representation, the first four printed characters of 
each directory block indicate the total number of used bytes in 
that block. For details of the format of the directory, see 
Debugging Handbook. 


Data from a directory block is punched in contiguous columns in 
the punched cards representing that block. 


( ' | PRINTING OR PUNCHING AN EDITED DATA SET 





IEBPTPCH can be used to print or punch an edited version of a 
sequential or a partitioned data set. Utility control 
statements can be used to specify editing information that 
applies to a record, a group of records, selected groups of 
records, or an entire member or data set. 


An edited data set is produced by: 
e Rearranging or omitting defined data fields within a record 


° Converting data from packed decimal to unpacked decimal or 
from alphameric to hexadecimal representation 


IEBPTPCH uses the following input: 


e An input data set, which contains the data that is printed 
or punched. The input data set can be either sequential or 
partitioned. 


e A control data set, which contains utility control 
statements. The control data set 1S required for each use 
of IEBPTPCH. | 


IEBPTPCH produces the following output: 


° ee data set, which is the printed or punched data 
set. | 
j | 
e A message data set, which contains informational messages 
(for example, the contents of the control statements) and 
any error messages. | 
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RETURN CODES 
IEBPTPCH returns a code in register 15 to indicate the results 


of program execution. The return codes and their meanings are 
listed in Figure 87. 


Codes Meaning 


00 (00 hex) Successful completion. 


0G (04) Either a physical sequential data set is empty or a 
partitioned data set has no members. 

08 (08) A member specified for printing or punching does 
not exist in the input data set. Processing 


continues with the next member. 


12 (0C) An unrecoverable error occurred or a user routine 
passed a return code of 12 to IJEBPTPCH. The job 
step is terminated. 


16 (10) A user routine passed a return code of 16 to 
IEBPTPCH. The job step is terminated. 


Figure 87. IEBPTPCH Return Codes 


CONTROL 


IEBPTPCH is controlled by job control statements and utility 
control statements. The job control statements are required to 
execute or invoke the IEBPTPCH program and to define the data 
sets that are used and produced by the program. The utility 
oe renee are used to control the functions of 


JOB CONTROL STATEMENTS 
Figure 88 shows the job control statements for IEBPTPCH. 


Statement Use 
JOB Initiates the job step. | 
EXEC Specifies the program name (PGM=IEBPTPCH) or, if 


the jJ0ob control statements reside in a procedure 
library, the procedure name. 


SYSPRINT DD Defines a sequential message data set. The data 
set can be written to a system output device, a 
tape volume, or a direct access device. 


SYSUT1 DD Defines a sequential or partitioned input data set. 

SYSUT2 DD Defines the output Cprint or punch) data set. 

SYSIN DD Defines the control data set. The control data set 
normally resides in the input stream; however, it 
=o! be defined as a member in a partitioned data 
set, 


Figure 88. Job Control Statements for IEBPTPCH 
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SYSUT1 DD Statement 


SYSUT2 DD Statement 


SYSIN DD Statement 


SYSPRINT DD Statement 


The SYSPRINT DD statement is required for each use of IEBPTPCH. 
The RECFM is always FBA, the LRECL is always 121. Output can be 
blocked by specifying a block size that 1s a multiple of 121 on 
the SYSPRINT DD statement. The default block size is 12]. 


The SYSUT1 DD statement is required for each use of ITEBPTPCH. 
The RECFM Cexcept for undefined records), BLKSIZE, and LRECL 
(except for undefined and fixed unblocked records) must be 
present on the DD statement, in the DSCB, or on the tape label. 


The input data set can contain fixed, variable, undefined, or 
Variable spanned records. Variable spanned records are 
permitted only when the input is sequential. 


A partitioned directory to be printed or punched must be defined 
as a sequential data set CTYPORG=PS). You must specify RECFM=U, 
BLKSIZE=256, and LRECL=256 on the SYSUT1 DD statement. 


The SYSUT2 DD statement is required every time IEBPTPCH is used. 
The RECFM is always FBA or FBM. The LRECL parameter, or, if no 
logical record length is specified, the BLKSIZE parameter, 
specifies the number of characters to be written per printed 
line or per punched card (this count includes a control 
character). The number of characters specified must be in the 
range of 2 through 145. The default values for edited output 
lines are 121 characters per printed line and 8l characters per 
punched card. 


The SYSUT2 data set can be blocked by specifying both the LRECL 
and the BLKSIZE parameters, in which case, block size must be a 
multiple of logical record length. 


Both the output data set and the message data set can be written 
to the system output device if it 1s a printer. 


If the logical record length of the input records is such that 
the output would exceed the output record length, IEBPTPCH 
divides the record into multiple lines or cards in the case of 
standard printed output, standard punched output, or when the 
PREFORM parameter 18S specified. For nonstandard output, or if 
the PREFORM parameter is not specified, only part of the input 
record 1s printed or punched (maximums determined by the 
specific characteristics of your output device). 


The SYSIN DD statement is required for each use of IEBPTPCH. 
The RECFM is always FB, the LRECL 1s always 80. Any blocking 
factor that is a multiple of 80 can be specified for the 
BLKSIZE. The default block size is 80. 


UTILITY CONTROL STATEMENTS 





IEBPTPCH is controlled by utility control statements. The 
control statements in Figure 89 on page 250 are shown in the 
order in which they must appear. 


Control statements are included in the control data set, as 


required. Any number of MEMBER and RECORD statements can be 
included ina job step. 
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A nonblank chara 
continuation sta 
control statemen 


cter in column 72 is optional for IEBPTPCH 
tements. Continuation requirements for utility 
ts are described in "Continuing Utility Control 


Statements" on page 5. 


Statement 
PRINT 
PUNCH 
TITLE 


EXITS 
MEMBER 


RECORD 


LABELS 


Figure 89. IJEBP 


PRINT Statement 


250 





The PRINT statem 
operation. If u 
control data set 


The format of th 


[label] PRINT 
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Use 
Specifies that the data is printed. 
Specifies that the data is punched. 


Specifies that a title is to precede the printed 
or punched data. 


Specifies that user exit routines are provided. 
Specifies that the input is a partitioned data 
set and that a selected member is printed or 
punched. | 

Specifies whether editing is performed, that is, 
records are to be printed or punched to your 
specifications. 


7 rea whether user labels are treated as 
ata. 


TPCH Utility Control Statements 


ent is used to initiate the ITEBPTPCH PRINT 
sed, PRINT must be the first statement in the 


e PRINT statement is: 


CPREFORM=A[M] 

[, TYPORG=PS|PO] 
[, TOTCONV=XE| PZ] 
[,CNTRL=p1/11 
C»STRTAFT=n] 
[»STOPAFT=n] 


[,>SKIP=n] 
[,»,MAXNAME=n] 
[»MAXFLDS=n] 
[»>MAXGPS=pn] 
[»MAXLITS=p]1 
[,»INITPG=p] 
[»>MAXLINE=p] 





lities 


ee 








PUNCH Statement 


TITLE Statement 


Note: If you specify PREFORM, any additional PRINT operands and 
all other control statements are ignored; exceptions are syntax 
checking, the LABELS statement, and the TYPORG operand. 


The PUNCH statement initiates the IEBPTPCH PUNCH operation. If 
you use the PUNCH statement, it must be the first statement in 
the control data set. 


The format of the PUNCH statement is: 


[PREFORM=A[M] 
[»TYPORG=PS[PO] 
[, TOTCONV=XE] PZ] 
[,CNTRL=n] 1] 
[,STRTAFT=n] 
C,STOPAFT=n] 
[,SKIP=n] 


[ ,MAXNAME=n] 
[,MAXFLDS=p] 
C,MAXGPS=n] 
[,MAXLITS=pn] 
[,CDSEQ=n] 

C[,CDINCR=y] 


Note: If PREFORM is specified, any additional PUNCH operands 
and all other control statements are ignored; exceptions are 
syntax checking, the LABELS statement, and the TYPORG operand. 


The TITLE statement is used to request title and subtitle 
records. Two TITLE statements can be included for each use of 
IEBPTPCH. A farst TITLE statement defines the title, anda 
second defines the subtitle. The TITLE statement, if included, 
follows the PRINT or PUNCH statement in the control data set. 


The format of the TITLE statement is: 


[label] TITLE ITEM=('title'L,output-location]) 


The literal coded for ‘title’ is not affected by the TOTCONV 
parameter. 
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EXITS Statement 


The EXITS statement is used to identify exit routines supplied € 
by the user. Exits to label processing routines are ignored if ‘ee Y 
the input data set is partitioned. Linkage to and from user ai 
routines are discussed in Appendix A, "Exit Routine Linkage™ on 

page $22. 


The EXITS statement, if included, must immediately follow any 
TITLE statement or follow the PRINT or PUNCH statement. 


The format of the EXITS statement is: 


[label] EXITS [LINHDR=routinenamel 
[,INTLR=routinename] 


[,INREC=routinename] 





[,OUTREC=routinename] 


MEMBER Statement 


The MEMBER statement is used to identify members to be printed 
or punched. All RECORD statements that follow a MEMBER 
statement pertain to the member indicated in that MEMBER 
statement only. When RECORD and MEMBER statements are used, at 
least one MEMBER statement must precede the first RECORD 
statement. If no RECORD statement is used, the member is 
processed to standard specifications. | 


If no MEMBER statement appears, and a partitioned data set is es ah 
being processed, all members of the data set are printed or | 
eet be Any number of MEMBER statements can be included ina 

job step. : 


If a MEMBER statement is present in the input stream, MAXNAME 
must be specified in a PRINT or PUNCH statement. 


The format of the MEMBER statement is: 


{[label] MEMBER NAME={membernamelaliasname} 





RECORD Statement 


The RECORD statement is used to define a group of records, 
called a record group, that is printed or punched to your 
specifications. A record group consists of any number of 
records to be edited identically. 


If no RECORD statements appear, the entire data set, or named 
member, 1S printed or punched to standard specifications. IEf a 
RECORD statement is used, all data following the record group it 
defines (within a partitioned member or within an entire 
sequential data set) must be defined with other RECORD 

eon add eed Any number of RECORD statements can be included in 
a job step. 


A RECORD statement referring to a partitioned data set for which @ ~ 


no members have been named need contain only FIELD parameters. e 
These are applied to the records in all members of the data set. 
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LABELS Statement 


< Tf a FIELD sepaueter is included in the RECORD statement; 


MAXFLDS must be specified in the PRINT or PUNCH statement. 
If an IDENT parameter is included in the RECORD statement, 
Apidae ae MAXLITS must be specified in the PRINT or PUNCH 
statement. 


The format of the RECORD statement is: 


RECORD | LIDENT=(Lenath> 'name'»input-location)] 
{,FIELD=( length 


Lanput=locationl 


Csconversion] 


[,output-location])] 





The LABELS statement specifies whether user labels are to be 
treated as data. For a detailed discussion of this option, 
refer to Appendix C, "Processing User Labels™ on page 426. 


LABELS DATA=NO must be specified to make standard user label 


(SUL). exits inactive when an input data set with nonstandard 
labels CNSL) is processéd. 


ole more than oné@ valid LABELS statement is included, all but the 


last LABELS statément are ignored. 
The format of the LABELS statement is: 


LABELS {CONV=PZ| XE] 


of, DATA=YES|NO|ALLJ ONLY] 


ESA nats an 
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Applicable 
Control 


Parameters Statements Description of Parameters 


CDINCR PUNCH CDINCR=n 
specifies the increment to be used in generating 
| sequence numbers. 
Default: 10 is the increment value. | 


CDSEQ PUNCH CDSEQ=n 
specifies the initial sequence number of a deck 
of punched cards. This value must be contained 
in columns 73 through 80. Sequence numbering is 
initialized for each member of a partitioned 
data set. If the value of nis zero, 00000000 
is the starting sequence number. 
Default: Cards are not numbered. 

CNTRL PRINT CNTRL=n{ 1 
specifies a control character for the output. 
device that indicates line spacing, as follows: 
l indicates single spacing Cthe default), 2 
indicates double spacing, and 3 indicates triple 
spacing. 

PUNCH specifies a control character for the output 
device that is used to select the stacker, as 
follows: 1 indicates the first stacker Cthe 
default), 2 indicates the second stacker, and 3 
indicates the third stacker, if any. 


CONV LABELS CONV=PZ[XE 
specifies a 2~-byte code that indicates the type 
of conversion to be performed on this field 
before it is printed or punched. The values 
that can be coded are: 
PZ 
specifies that data C€packed decimal) is 
converted to unpacked decimal data. The 
converted portion of the input record 
Clength L) occupies 2L - 1 output 
characters when punching, and 2L output 
characters when printing. 
specifies that data Calphameric) is 
converted to hexadecimal data. The 
converted portion of the input record 
Clength L) occupies 2L output characters. 
Default: The field is moved to the output area 
without change. 
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! o Applicable 
: Control 
Parameters Statements Description of Parameters 
DATA LABELS DATA=YES|NO|ALLIJ ONLY 
specifies whether user labels are to be treated 
as data. The values that can be coded are: 


YES 
specifies that any user labels that are not 
rejected by a user's label processing 
routine are to be treated as data. 
Processing of labels as data stops in 
compliance with standard return codes. YES 
is the default. 


specifies that user labels are not to be 


treated as data. NO must be specified when 
processing input/output data sets with 
nonstandard labels (NSL) in order to make 
standard user label (SUL) exits inactive. 


specifies that all user labels are to be 
treated as data. A return code of 16 
causes the utility to complete the 
processing of the remainder of the group of 
user labels and to terminate the job step. 


specifies that only user header labels are 
to be treated as data. User header labels 
are processed as data regardless of any 

( return code. The job terminates upon 





return from the OPEN routine. 


“Me 
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Applicable 
Control 


Parameters Statements 


FIELD | RECORD 


256 





Description of Parameters es 


FIELD=( length» Linput-locationJ,€conversion]>» 


[output-location]J[,FIELD=....] 
specifies field-processing and editing 
information. 


Note that the variables on the FIELD parameter 
are positional; that is, if any of the options 
are not coded, the associated comma preceding 
that variable must be coded. 


These values can be coded: | 


length 
specifies the length Cin bytes) of the 
input field to be processed. The length 
must be equal to or less than the initial 
input LRECL. 


input-location 
specifies the starting byte of the input 
field to be processed. The sum of the 
length and the input location must be equal 
to or less than the input LRECL plus one. 


Default: Byte 1 is assumed. 


conversion 
specifies a 2-byte code that indicates the 
type of conversion to be performed on this 
field before it is printed or punched. The 
values that can be coded are: 


PZ 


specifies that data (packed decimal) 
is converted to unpacked decimal data. 
The converted portion of the input 
record (length L) occupies 2L - 1 
output characters when punching, and 
2L output characters when printing. 


specifies that data Calphameric) is 
converted to hexadecimal data. The 
converted portion of the input record 
Clength LJ) occupies 2L output 
characters. 


Default: The field is moved to the output 
area without change. 
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Applicable 
Control 
Statements 


RECORD 


Parameters 


FIELD 
Ccontinued) 


Description of Parameters 


output-—location 
specifies the starting location of this field in 
the output records. Unspecified fields in the 
output records appear as blanks in the printed 
or punched output. Data that exceeds the SYSUT2 
printer or punch size is not printed or puncned. 
The specified fields may not exceed the logical 
output record length minus one. When specifying 
one or more FIELDs, the sum of all lengths and 
all extra characters needed for conversions must 
be equal to or less than the output LRECL minus 

one. 


Default: Byte 1 is assumed. 
If a FIELD parameter 18s included in the RECORD 


statement, MAXFLDS must be specified in the PRINT or 
PUNCH statement. 

















IDENT RECORD IDENT=(Clenath, 'name',input-location) 
| identifies the last record of the record group 
to which the FIELD parameters apply. The values 


that can be coded are: 


length 
specifies the length Cin bytes) of the 
field that contains the identifying name in 
the input records. The length cannot 
exceed 8 bytes. 






ame’ 


specifies the exact literal, enclosed in 
apostrophes, that identifies the last 
record of a record group. If the literal 
contains apostrophes, each must be written 
as two consecutive apostrophes. 






input—location 
specifies the starting location of the 

field that contains the identifying name in 

the input records. 





The sum of the length and the input location 
must be equal to or less than the input LRECL 
plus one. 


Default: If IDENT is omitted and STOPAFT is not 
included with the PRINT or PUNCH statement, 
record processing halts after the last record in 
the data set. If IDENT is omitted and STOPAFT 
1s included with the PRINT or PUNCH statement, 
record processing halts when the STOPAFT count 
is satisfied or after the last record of the 
data set is processed, whichever occurs first. 


















If an IDENT parameter is included in the RECORD 
statement, MAXGPS and MAXLITS must be specified 
in the PRINT or PUNCH statement. 






INHDR EXITS INHDR=routinename 
specifies the name of the routine that processes 


user input header labels. 
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Applicable 
Control 
Parameters Statements Description of Parameters 
INITPG PRINT INITPG=n 
specifies the initial page number; the pages are 
numbered sequentially thereafter. The INITPG 
parameter must not exceed a value of 9999. 
Default: Page 1 ~ 
INREC EXITS INREC=routinename 3 
specifies the name of the routine that 
manipulates each logical record Cor physical 
| block in the case of VS or VBS records longer 
than 32K bytes) before it is processed. 


INTLR EXITS INTLR=routinename 
specifies the name of the routine that processes 
user input trailer labels. 


ITEM TITLE ITEM=('title'L,output-location])[,ITEM...] | 
specifies title or subtitle information. The 
values that can be coded are: 
specifies the title or subtitle literal 
Cmaximum length of 40 bytes), enclosed in 
apostrophes. If the literal contains 
apostrophes, each apostrophe must be 
written as two consecutive apostrophes. 

output-location 
specifies the starting position at which 
the literal for this item is placed in the 
output record. When used with 
output-location, the specified title's 
length plus output-location may not exceed 
the output logical record length minus one. 
Default: Byte l is assumed. 

MAXFLDS PRINT MAXFLDS=n 
PUNCH specifies a number no less than the total number 

of FIELD parameters appearing in subsequent 

RECORD statements. The value must not exceed 

32767. 

If MAXFLDS is omitted when there is a FIELD 

parameter present, the print or punch request is 

terminated. 

MAXGPS PRINT MAXGPS=n 

PUNCH specifies a number no less than the total number 
of IDENT parameters appearing in subsequent 
RECORD statements. The value must not exceed 
32767. 
If MAXGPS is omitted when there is an IDENT 
parameter present, the print or punch request is 
terminated. 


MAXLINE PRINT MAXLINE=n 

specifies the maximum number of lines to a 
printed page. Spaces, titles, and subtitles are 
included in this number. 


Default: 60 lines per page. 
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Applicable 


( Control 
= Parameters Statements Description of Parameters 


MAXLITS PRINT MAXLITS=n 
PUNCH specifies a number no less than the total number 
of characters contained in the IDENT literals of 
subsequent RECORD statements. The value must 
not exceed 32767. 
If MAXLITS is omitted when there is a literal 
present, the print or punch request 1s 
terminated. 
MAXNAME PRINT MAXNAME=n 
PUNCH specifies a number no less than the total number 
of member names and aliases appearing in 
subsequent MEMBER statements. The value must 
not exceed 32/767. 
If MAXNAME is omitted when there is a MEMBER 
statement present, the print or punch request is 
terminated. 


MEMBER NAME={membername]laliasname} 
specifies a member to be printed or punched. 
The values that can be coded are: 





membername 
specifies a member by its member name. 


aliasname 


specifies a member by its alias name. 


If a MEMBER statement is present in the input 
stream, MAXNAME must be specified in a PRINT or 
PUNCH statement. 





OUTREC EXITS OUTREC=routinename 
specifies the name of the routine that 
manipulates each logical record Cor physical 
block in the case of VS or VBS records longer 
than 32K bytes) before it is printed or punched. 
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Applicable | Be. 
Control . 
Parameters Statements Description of Parameters 


PREFORM PRINT PREFORM=A[M 

PUNCH specifies that a control character 1s provided 
as the first character of each record to be 
printed or punched. The control characters are 
used to control the spacing, number of lines per 
page, page ejection, and selecting a stacker. 
That is, the output has been previously 
formatted, and the "standard specifications" are 
superseded. If an error occurs, the print/punch 
operation is terminated. If PREFORM is coded, 
any additional PRINT or PUNCH operands and all 
other control statements are ignored; exceptions 
are syntax checking, the LABELS statement, and 
the TYPORG operand. PREFORM must not be used for 
printing or punching data sets with VS or VBS 
records longer than 32K bytes. These values are 
coded as follows: 


A 
specifies that an ASA control character is 
provided as the first character of each 
record to be printed or punched. If the 
input record length exceeds the output 
record length, the utility uses the ASA 
character for printing the first line, with 
a single space character on all subsequent 
lines of the record (for PRINT), or 
duplicates the ASA character on each output 
card of the record (Cfor PUNCH). 


specifies that a machine-code control : 
character is provided as the first He? 
character of each record to be printed or 
punched. If the input record length 
exceeds the output record length, the 
utility prints all lines of the record with 
a ‘print-skip-one-line character until the 
last line of the record, which will contain 
the actual character provided as input (for 
PRINT), or duplicates the machine control 
character on each output card of the record 
Cfor PUNCH). 


SKIP=n 
specifies that every nth record (Cor physical 
block in the case of VS or VBS records longer 
than 32K bytes) is printed or punched. 


Default: Successive logical records are printed 
or punched. 
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Applicable 


Centrol 
Statements Description of Parameters 





( Parameters 


STOPAFT PRINT STOPAFT=n 

PUNCH specifies, for sequential data sets, the number 
of logical records Cor physical blocks in the 
case of VS or VBS records longer than 32K bytes) 
to be printed or punched. For partitioned data 
sets, this specifies the number of logical 
records (Cor physical blocks in the case of VS or 
VBS records longer than 32K bytes) to be printed 
or punched in each member to be processed. The 
n value must not exceed 32767. If STOPAFT is 
specified and the IDENT parameter of the RECORD 
statement is also specified, the operation 1s 
terminated when the STOPAFT count is satisfied 
or at the end of the first record group, 
whichever occurs first. 


STRTAFT PRINT STRTAFT=n 

PUNCH specifies, for sequential data sets, the number 
of logical records (physical blocks in the case 
of variable spanned (VS) or variable block 
spanned (CVBS) type records longer than 32K 
bytes) to be skipped before printing or punching 
begins. For partitioned data sets, STRTAFT=n 
specifies the number of logical records to be 
skipped in each member before printing or 
punching begins. The n value must not exceed 
32767. If STRTAFT is specified and RECORD 
statements are present, the first RECORD 
statement of a member describes the format of 
the first logical record to be printed or 
punched. 


( | TOTCONV PRINT TOTCONV=XE[PZ 

‘ PUNCH specifies the representation of data to be 
printed or punched. TOTCONV can be overridden 
by any user specifications (CRECORD statements) 
that pertain to the same data. These values are 
coded as follows: 


XE 
specifies that data is punched in 
2-character-per-~byte hexadecimal 
representation (for example, C3 40 F4 F6). 
If XE is not specified, data is punched in 
l-character per byte alphameric 
representation. The above example would 
appear as C 46. 


The converted portion of the input record 
Clength L) occupies 2L output characters. 


specifies that data Cpacked decimal mode) 
is converted to unpacked decimal mode. 
ILEBPTPCH does not check for packed decimal 
mode. 


The converted portion of the input record 
Clength L) occupies 2L-1 output characters 
when punching, and 2L output characters 


Default: If TOTCONV is omitted, data is not 
converted. 
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Applicable 


Control 
Parameters Statements 


TYPORG 


Description of Parameters 


TYPORG=PS|PO 
specifies the organization of the input data 
These values are coded as follows: 


set. 


PS 


specifies that the input data set is 
organized sequentially. This is the 


default. 


specifies that the input data set is 
partitioned. 
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TEBPTPCH EXAMPLES 


_ The following examples illustrate some of the uses of IEBPTPCH. 
( Figure 90 can be used as a quick-reference guide to IEBPTPCH 
examples. The numbers in the “"Example™ column refer to the 
examples that follow: 


Data Set 
Operation Organization Devices Comments | Example 
PRINT Sequential 9-track Tape and Standard format. 
System Printer Conversion to 
hexadecimal. 
PUNCH 7-track Tape and Standard format. 


Card Reader Conversaon to 
PRINT Partitioned 


hexadecimal. 
: PRINT Partitioned 


7 
_ 


PRINT Sequential, 





































Standard format. 
Conversion to 
hexadecimal. Ten 
records from each member 
are printed. 


Standard format. 
Conversion to 
hexadecimal. Two 
members are printed. 


Disk and System 
Printer 











Disk and System 
Printer 









User-specified format. 
Input data set is the 

second data set on the 
volume. 


9-track Tape and 
System Printer 


















Disk and Card 
Reader Punch 


User-~specified format. 
Sequence numbers are 
assigned and punched. 


Standard format. 
















Disk and System 














Partitioned Printer Conversion to 
hexadecimal. 
PUNCH Sequential Card Reader and Standard format. 

Card Read Punch Control data set is a 
member in a cataloged 
partitioned data set. 

PRINT Sequential Disk and System User-specified format. 


User routines are 
provided. Processing 
ends after the third 
record group is printed 
or STOPAFT is satisfied. 


SYSOUT format. SYSOUT 
data set 1s on tape 
volume. 


Printer 





— 


~“ in >) WG NO mal 
© 


9-track Tape and 
System Printer 


_ 


Figure 90. IEBPTPCH Example Directory 


Examples that use disk or tape in place of actual device numbers 
must be changed before use. See "DASD and Tape Device Support" 
on page 3 for valid device number notation. 
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IEBPTPCH EXAMPLE 1 


In this example, a sequential data set is sriheed: i ceecaing to : 
standard specifications. ahee printed output is sonverted to. \ 
hexadecimal. ‘ | = a 


tango! 


//PRINT JOB 

// EXEC PGM= TEBPTPCH 

/7SYSPRINT DD SYSQUT#A 

//SYSUT1 DD UNIT=tape,LABEL=(,NL), VOLUNE=S 
// DISP=COLD, KEEP), DCB=(RECFM=U ),B 


S/SYSUT2 DD SYSOUT= A 
7/SYSIN DD xX 
PRINT TOTCONV= XE 


TATLE ITEM=C*PRINT SEQ DATA ale WITH CONV TO HEX? 10) 
7% 





The control statements are discussed below. 


e SYSUT1 DD defines the input data set on a eave. volune: The 
data set contains undefined records; no record is targer 
than 2,000 bytes. © | 


e SYSUT2 DD defines the Saree data set. The data sek is 
written to the system output device (printer assumed). Each 
printed line contains groups (8 characters each). of 
hexadecimal information. Each input record begins a new 
line of printed eutput. The size of the inpyt record and 
the carriage width determine how many lines of prapted 
output are required per input record. : 


e SYSIN DD defines the control data set; which - follows in the ~ > 
input stream. The control data set contains the PRINT and 
TITLE statements. 


: PRINT initiates the print operation ‘and specifies conversion 
from alphameric. to hexadecimal representation. ' 


° TITLE specifies a title to be placed baewnnine: in column 10 
of the printed gucede: “oe title is not converted to 
hexadecimal. | _ | 


IEBPTPCH EXAMPLE 2 


In this example, a sequential data set is punched ipeeond ag to 7 
standard specifications. The punched eh ace ae converted ‘to 
hexadecimal. : 


//PUNCHSET JOB... © 

1/ EXEC aif fate =1EBPTPCH » ae 
//SYSPRINT DD a 
//SYSUTI DD -BSNAMES INSET, UNIT=tape, VOLUMESSER} al 234, 
17 LABEL=C,NL),DISP=COLD, KEEP), RSL RECE Me FB, 





// LRECL= =80, ILKSIZE= 2000) 


S/SYSUT2 DD Sees se 
S/SYSIN DD | = ln, 3 
PUNCH TOTCONV= XE 
TITLE ITEM=( "PUNCH SEQ DATA SET WITH CONV 10 HEX*,10) 


7% 
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IEBPTPCH EXAMPLE 3 





Rip Tie ado SP SESE pies peggy rag EEE EEF EEE 


The control statements are discussed below: 


SYSUT1 DD defines the input data set, called INSET, ona 
tape volume. The data set contains 80-byte, fixed blocked 
records. 


SYSUT2 DD defines the system output class (Cpunch is 
assumed). Each record from the input data set 1s 
represented by two punched cards. 


SYSIN DD defines the control data set, which follows in the 
input stream. The control data set contains the PUNCH and 
TITLE statements. 


PUNCH initiates the punch operation and specifies conversion 
from alphameric to hexadecimal representation. 


TITLE specifies a title to be placed beginning in column 10. 
The title is not converted to hexadecimal. 


In this example, a partitioned data set (ten records from each 
member) is printed according to standard specifications. The 
printed output is converted to hexadecimal. 


“Y/PRINTPDS JOB... 

// EXEC PGM=IEBPTPCH 

//SYSPRINT DD SYSOUT=A 

//SYSUTI DD DSNAME=PDS,UNIT=disk, DISP=COLD,KEEP), 
// VOLUME=SER=111112 


//SYSUT2 DD SYSOUT=A 
//SYSIN DD xX 
PRINT TOTCONV=XE,TYPORG=P0,STOPAFT=10 
TITLE ITEM=C*PRINT PDS - 10 RECS EACH MEM", 20) 


7% 





The control statements are discussed below: 


SYSUT1 DD defines the input data set, called PDS, ona disk 
volume. 


SYSUT2 DD defines the output data set on the system output 
device (printer assumed). Fach printed line contains groups 
€8 characters each) of hexadecimal information. Each input 
record begins a new line of printed output. The size of the 
input record and the carriage width determine how many lines 
of printed output are required per input record. 


SYSIN DD defines the control data set, which follows in the 
input stream. The control data set contains the PRINT and 
TITLE statements. 


PRINT initiates the print operation, specifies conversion 
from alphameric to hexadecimal representation, indicates 
that the input data set is partitioned, and specifies that 
10 records from each member are to be printed. 


TITLE specifies a title to be placed beginning in column 20 


of the printed output. The title 1s not converted to 
hexadecimal. : 
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IEBPTPCH EXAMPLE 4 


In this example, two partitioned members are printed according 
to standard specifications. The printed output is converted to 


hexadecimal. 


//PRNTMEMS JOB... 

// EXEC PGM=IEBPTPCH 
//SYSPRINT DD 
/7SYSUTI DD 
// 

S74 SYSUT2 DD 


/73YSIN DD 
PRINT 

TITLE 

MEMBER 

MEMBER 


SYSOUT=A é 
DSNAME=PDS, DISP=COLD,KEEP), VOLUME=SER=111112, 


_UNIT=disk 


SYSOUT=A 
. , 


TYPORG=P0, TOTCONV=XE,MAXNAME=2 

ITEM=C*PRINT TWO MEMBS WITH CONV TO HEX*',10) 
NAME=MEMBERI 

NAME=MEMBER2 





The control statements are discussed below: 


e SYSUT1 DD defines the input data set, called PDS, ona disk 


volume. 


° SYSUT2 DD defines the output data set on the system output 


device (printer assumed). 


(8 characters each) of hexadecimal information. Each input 


record begins a new line of printed output. 
input record and the carriage width determine how many lines 


of printed output are required per input record. 


e SYSIN DD defines the control data set, which follows in the 


input stream. 


The control data set contains PRINT, TITLE, 


and MEMBER statements. 


e PRINT initiates the print operation, indicates that the 
input data set is partitioned, specifies conversion from 
alphameric to hexadecimal representation, and indicates that . 
two MEMBER statements appear in the control data set 


C(MAXNAME=2). 


@ TITLE specifies a title to be placed beginning in column 10 
of the printed output. The title is not converted to 


hexadecimal. 


® MEMBER specifies the member names of the members to be 
printed (MEMBER1] and MEMBER2). 
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Each printed line contains groups 


The size of the 








IEBPTPCH EXAMPLE 5 


In this example, a sequential data set is printed according to 
user specifications. 


7/PTNONSTD JOB... 
1/ EXEC PGM= TEBPTPCH 
Z/SYSPRINT DD SYSOUT=A 
/7SYSUTI DD DSNAME=SEQSET,UNIT=tape,LABEL=(2,SUL), 
1/ DISP=(OLD, KEEP), VOLUME=SER=001234 
S/SSYSUT2 DD SYSOUT=A 
7 SYSIN DD xX 
PRINT MAXFLDS=1 
EXITS INHDR=HDRIN, INTLR=TRLIN 
RECORD FIELD=(€80) 
LABELS DATA=YES 
7% 


The control statements are discussed below: 


e SYSUT1 DD defines the input data set, called SEQSET, which 
is the second data set on a tape volume. 


e SYSUT2 DD defines the output data set on the system output 
device (printer assumed). Each printed line contains 80 
contiguous characters Cone record) of information. 


e SYSIN DD defines the control data set, which follows in the 
input stream. The control data set contains the PRINT, 
EXITS, RECORD, and LABELS statements. 


® PRINT initiates the print operation and indicates that one 
Fre ee ae 1S included in a subsequent RECORD statement 
A =1]). 


° EXITS indicates that exits will be taken to user header 
label and trailer label processing routines when these 
labels are encountered on the SYSUT1 data set. 


e RECORD indicates that each input record is processed in its 
entirety (80 bytes). Each input record is printed in 
columns 1 through 80 on the printer. 


e LABELS specifies that user header and trailer labels are 
eee according to the return code issued by the user 
exits. 


IEBPTPCH EXAMPLE 6 


In this example, a sequential data set is punched according to 
user specifications. 


Y/PHSEQNO JOB. 

eA EXEC PGM=IEBPTPCH 

Z/7SYSPRINT DD SYSOUT=A 

S/SYSUTI DD DSNAME=SEQSET,UNIT=disk,LABEL=C(,SUL), 
// VOLUME=SER=111112,DISP=COLD,KEEP), 

// DCB=C(RECFM=FB,LRECL=80,BLKSIZE=2000) 


S/SSYSUT2? DD SYSOUT=B 
S/SYSIN DD xX 
PUNCH MAXFLDS=1,CDSEQ=00000000,CDINCR=20 
RECORD FIELD=(€72) 
LABELS DATA=YES 
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IEBPTPCH EXAMPLE 7 


The control statements are discussed below: 


SYSUT1 DD defines the input data set, called SEQSET, which _— 


resides on a disk volume. The data set contains 80-byte, 
fixed blocked records. 


SYSUT2 DD defines the system output class Cpunch is 
assumed). That portion of each record from the input data 
set defined by the FIELD parameter is represented by one 
punched card. 


SYSIN DD defines the control data set, which follows in the 
input stream. The control data set contains the PUNCH, 
RECORD, and LABELS statements. 


PUNCH anitiates the punch operation, indicates that one 
FIELD parameter is included in a subsequent RECORD statement 
CMAXFLDS=1), and assigns a sequence number for the first 
punched card (00000000) and an increment value for 
succesSive sequence numbers (20). Sequence numbers are 
placed in columns 73 through 80 of the output records. 


RECORD indicates that bytes 1 through 72 of the input 
records are to be punched. Bytes 73 through 80 of the input 
records are replaced by the new sequence numbers in the 
output card deck 


LABELS specifies that user header labels and user trailer 
labels are punched. 


Labels cannot be edited; they are always moved to the first 80 
bytes of the output buffer. No sequence numbers are present on 
the cards containing user header and user trailer records. 


In this example, the directory of a partitioned data set is 
printed. The printed output is converted to hexadecimal. mee 


“/ 
77 
// 


PRINTDIR JOB... 
EXEC PGM=IEBPTPCH 
SYSPRINT DD SYSOUT=A 


S/3YSUTI DD DSNAME=PDS,UNIT=disk, VOLUME=SER=111112, 


1/ 
“/ 
4/ 


7% 





DISP=COLD,KEEP), DCB=CRECFM=U, BLKSIZE=256 ) 
SYSUT2 DD SYSOUT=A 
SYSIN DD xX 
PRINT TYPORG=PS, TOTCONV=XE 
TITLE ITEM=C'PRINT PARTITIONED DIRECTORY OF PDS',10 
TITLE ITEM=C'FIRST TWO BYTES SHOW NUM OF USED BYTES 
LABELS DATA=NO 


) 
' 


»10) 


The control statements are discussed below: 


SYSUT1 DD defines the input data set (the partitioned 
directory), which resides ona disk volume. 


SYSUT2 DD defines the output data set on the system output 
device (printer assumed). Each printed line contains groups 
(8 characters each) of hexadecimal information. Each input 
record begins a new line of printed output. The size of the 
input record and the carriage width determine how many lines 
of printed output are required per input record. 


SYSIN DD defines the control data set, which follows in the #4 \ 
input stream. The data set contains the PRINT, TITLE, and a. 
LABELS statements. od 
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° PRINT initiates the print operation, indicates that the 
partitioned directory is organized sequentially, and 
specifies conversion from alphameric to hexadecimal 
representation. 


e The first TITLE statement specifies a title, which is not 
converted to hexadecimal. 


6 The second TITLE statement specifies a subtitle, which is 
also not converted to hexadecimal. 


° LABELS specifies that no user labels are printed. 


Note: Not all of the bytes ina directory block need contain 
data pertaining to the partitioned data set; unused bytes are 
sometimes used by the operating system as temporary work areas. 
With conversion to hexadecimal representation, the first four 
characters of printed output indicate how many bytes of the 
256-byte block pertain to the partitioned data set. Any unused 
bytes occur in the latter portion of the directory block; they 
are not interspersed with the used bytes. 


In this example, a card deck containing valid punch card code or 
BCD is duplicated. 


//PUNCH JOB... 

// EXEC PGM=IEBPTPCH 

//SYSPRINT DD SYSOQUT=A | 
S/SYSIN DD DSNAME=PDSLIBCPNCHSTMT), DISP=COLD, KEEP) 
//SYSUT2 DD SYSOUT=B 

S/SYSUTI DD DATA 


Cinput card data set including // cards) 
/* 





The control statements are discussed below: 


e SYSIN DD defines the control data set. The control data set 
contains a PUNCH statement and is defined as a member of the 
partitioned data set PDSLIB. (The data set 1s cataloged.) 
The RECFM must be FB and the LRECL must be 80. 


e SYSUT2 DD defines the system output class (Cpunch 1s 
assumed). 


e SYSUT1 DD defines the input card data set, which follows in 
the input stream. 


IEBPTPCH Program 269 





IEBPTPCH EXAMPLE 9 


270 





In this example, three record groups are printed. A user foo™ 


routine is provided to manipulate output records before they are |. 
printed. 


di a 
Oo we 


/7PRINT JOB 


17 
// 
// 
4/7 
47 
// 





EXEC PGM=IEBPTPCH 
SYSPRINT DD SYSOQUT=A 
SYSUT1 DD DSNAME=SEQDS,UNIT=disk, DISP=COLD,KEEP), 
LABEL=(€,SUL),VOLUME=SER=ll1l1ll2 
SYSUT2 DD SYSOUT=A 
SYSIN DD xX 
PRINT MAXFLDS=9,MAXGPS=9 ,MAXLITS=23,STOPAFT=32767 
TITLE ITEM=C'TIMECONV-DEPT DO06'), 
ITEM=C'JAN1O-17',80) 
EXITS OUTREC=NEWTIME, INHDR=HDRS, INTLR=TLRS 
RECORD IDENT=(6, '498414',1), 
FIELD=(8,1,,10),FIELD=(€30,9,XE,20) 
RECORD IDENT=(2,'XX',39), 
FIELD=(8,1,,10),FIELD=(30,9,XE,20) 
RECORD IDENT=(6,'498414',1), 
FIELD=(8,1,,10),FIELD=(€30,9,XE,20) 
LABELS CONV=XE,DATA=ALL 


The control statements are discussed below: 


SYSUT1 DD defines the input data set, called SEQDS. The 
data set resides ona disk volume. 


SYSUT2 DD defines the output data set on the system output we 
device (printer assumed) | 


SYSIN DD defines the control data set, which follows in the 
input stream. The control data set contains the PRINT, 
TITLE, EXITS, RECORD, and LABELS statements. 


The PRINT statement: 
1. Initializes the print operation. 


2. Indicates that not more than nine FIELD parameters are 
included in subsequent RECORD statements CMAXFLDS=9). 


3. Indicates that not more than nine IDENT parameters are 
included in subsequent RECORD statements CMAXGPS=9). 


G. Indicates that not more than 23 literal characters are 
included in subsequent IDENT parameters (MAXLITS=23). 


5. Indicates that processing is terminated after 32767 
records are processed or after the third record group is 
processed, whichever comes first. Because MAXLINE is 
omitted, 60 lines are printed on each page. 


TITLE specifies two titles, to be printed on one line. The 
titles are not converted to hexadecimal. 


EXITS specifies the name of a user routine CNEWTIME), which 
is used to manipulate output records before they are 
printed. 


The first RECORD statement defines the first record group to —_ 
be processed and indicates where information from the input f 
records is placed in the output records. Bytes 1 through 8 & 
of the input records appear in columns 10 through 17 of the 
printed output, and bytes 9 through 38 are printed in 
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IEBPTPCH EXAMPLE 10 


hexadecimal representation and placed in columns 20 through 
79. 


The second RECORD statement defines the second group to be 
processed. The parameter in the IDENT operand specifies 
that an input record containing the two characters X*X* in 
positions 39 and 40 is the last record edited according to 
the FIELD operand in this RECORD statement. The FIELD 
operand specifies that bytes 1 through 8 of the input 
records are placed in columns 10 through 17 of the printed 
output, and bytes 9 through 38 are printed in hexadecimal 
representation and appear in columns 20 through 79. 


The third and last RECORD statement is equal to the first 
RECORD statement. An input record that meets the parameter 
in the IDENT operand ends processing, unless the STOPAFT 
parameter in the PRINT statement has not already done so. 


LABELS specifies that all user header or trailer labels are 
to be printed regardless of any return code, except 16, 
issued by the user's exit routine. It also indicates that 
the labels are converted from alphameric to hexadecimal 
representation CCONV=XE). 


In this example, the input is a SYSOUT (sequential) data set, 
which was previously written as the second data set of a 
standard label tape. It is printed in SYSOUT format. 


1/7 
// 


rae 
// 
1/7 
// 
4/7 


1% 


PTSYSOUT JOB... 
EXEC PGM=IEBPTPCH 
SYSPRINT DD SYSOUT=A 
SYSUT1 DD UNIT=tape, LABEL=(2,SL),DSNAME=LISTING, 
DISP=COLD, KEEP), VOL=SER=001234 
SYSUT2 DD SYSOUT=A 
SYSIN DD x 
PRINT PREFORM=A 





The control statements are discussed below: 


TTR are Ter rane areeeerenermeyeet en ep ETE tt EE 


SYSUT1 DD defines the input data set, which was previously 
written as the second data set of a standard label tape. 
The data set has been assigned the name LISTING. 


SYSUT2 DD defines the output data set on the system output 
device (printer assumed). 


SYSIN DD defines the control data set, which follows in the 
input stream. The control data set contains the PRINT 


statement. 


The PRINT statement initiates the print operation and 
indicates that an ASA control character is provided as the 
first character of each record to be printed (CPREFORM=A). 
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TEBUPDTE PROGRAM 


JEBUPDTE is a data set utility used to incorporate IBM and 
user-generated source language modifications into sequential or 
partitioned data sets. Exits are provided for user routines 
that process user header and trailer labels. 

ITEBUPDTE can be used to: 

e Create and update data set libraries 

e Modify existing partitioned members or sequential data sets 


@ Change the organization of a data set from sequential to 
partitioned or vice versa 


CREATING AND UPDATING DATA SET LIBRARIES 


IEBUPDTE can be used to create a library of partitioned members 
consisting of no more than 80-byte logical records. In 
addition, members can be added directly to an existing library, 
provided that the original space allocations are sufficient to 
incorporate the new members. In this manner, a cataloged 
procedure can be placed in a procedure library, or a set of job 
or utility control statements can be placed as a member ina 
partitioned library. 


MODIFYING AN EXISTING DATA SET 


IEBUPDTE can be used to modify an existing partitioned or 
sequential data set. Logical records can be replaced, deleted, 
renumbered, or added to the member or data set. 


A sequential data set residing on a tape volume can be used to 
create a new master (that is, a modified copy) of the data set. 
A sequential data set residing on a direct access device can be 
modified either by creating a new master or by modifying the 
data set directly on the volume on which it resides. 


A partitioned data set can be modified either by creating a new 
master or by modifying the data set directly on the volume on 
which it resides. 


CHANGING DATA SET ORGANIZATION 


INPUT AND OUTPUT 


IEBUPDTE can be used to change the organization of a data set 
from sequential to partitioned, or to change a single member of 
a partitioned data set to a sequential data set. If only a 
member 1s changed, the remainder of the original data set 
remains unchanged. In addition, logical records can be 
eee deleted, renumbered, or added to the member or data 
set. 

\ 


IEBUPDTE uses the following input: 


e An input data set Calso called the old master data set), 
which 1s modified or used as source data for a new master. 
The input data set is either a sequential data set or a 
member of a partitioned data set. 


e A control data set, which contains utility control 
statements and, if applicable, input data. The data set is 
required for each use of IEBUPDTE. 
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RETURN CODES 


CONTROL 


LEBUPDTE produces the following output: 


e An output data set, which is the result of the IEBUPDTE 
operation. The data set can be either sequential or 
partitioned. It can be either a new data set (that is, 
created during the present job step) or an existing data 
set, modified during the present job step. 


e A message data set, which contains the utility program 
identification, control statements used in the job step, 
modification made to the input data set, and diagnostic 
messages, if applicable. The message data set 1s 
sequential. 


IEBUPDTE returns a code in register 15 to indicate the results 
of program execution. The return codes and their meanings are 
listed in Figure 91. 





Codes Meaning 
00 (00 hex) Successful completion. 


04 (04) A control statement is coded incorrectly or used 
erroneously. If either the input or output is 
sequential, the job step is terminated. If both 
are partitioned, the program continues processing 
with the next function to be performed. 


l2 (0C) An unrecoverable error exists. The job step is 
terminated. 

16 (10) A label processing code of 16 was received from a 
user's label processing routine. The job step 158 
terminated. 


Figure 91. IEBUPDTE Return Codes 


IEBUPDTE is controlled by job control statements and utility 
control statements. The job control statements are required to 
execute or invoke JTEBUPDTE and to define the data sets that are 
used and produced by the program. The utility control 
statements are used to control the functions of ITEBUPDTE and, in 
certain cases, to supply new or replacement data. 
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JOB CONTROL STATEMENTS 


Figure 92 shows the job control statements for IEBUPDTE. — 
KY 

Statement Use 

JOB Initiates the job. 

EXEC Specifies the program name CPGM=IEBUPDTE), or, if 


the job control statements reside in a procedure 
library, the procedure name. Additional 
information can be specified in the PARM 
parameter of the EXEC statement. 


SYSPRINT DD Defines a sequential message data set. The data 
set can be written to a system output device, a 
tape volume, or a direct access volume. 


SYSUT1 DD Defines the input Cold master) data set. It can 
define a sequential data set on a card reader, a 
tape volume, or a direct access volume. Or, it 
can define a partitioned data set on a direct 
access volume. 


SYSUT2 DD Defines the output data set. It can define a 
sequential data set on a card punch, a printer, a 
tape volume, or a direct access device. It can 
cece a partitioned data set ona direct access 

evice. 


SYSIN DD Defines the control data set. The control data 
set normally resides in the input stream; | 
however, it can be defined as a member of a. 
partitioned data set. 


Figure 92. Job Control Statements for IEBUPDTE | ed 


PARM Information on the EXEC Statement 


Additional information can be coded in the PARM parameter of the 
EXEC statement, as follows: 


EXEC PARM={NEW|MOD} EF ,inhdrIll,intlr] 


Following are the PARM values: 


@ NEW, which specifies that the input consists solely of the 
control data set. An input data set does not exist and is 
not defined if NEW is specified. 


e MOD, which specifies that the input consists of both the 
control data set and the input data set. If neither NEW nor 
MOD is coded, MOD is assumed. 


e inhdr, which specifies the name of the routine that 
processes the user header label on the volume containing the 
control data set. | 


e intlr, which specifies the name of the routine that 
processes the user trailer label on the volume containing 
the control data set. 
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SYSPRINT DD Statement 


SYSUT1 DD Statement 


SYSUT2 DD Statement 


The message data set has a logical record length of 121 bytes, 
and consists of fixed length, blocked or unblocked records with 
an American National Standards Institute CANSI) control 
character in the first byte of each record. The input and 
output data sets have a logical record length of 80 bytes or 
less, and consist of standard fixed-blocked C(RECFM=FB) or 
unblocked records. The control data set contains 80-byte, 
blocked or unblocked records. 


If the SYSUT1]1 and SYSUT2 DD statements define the same 
sequential data set (BDAM only), only those operations that add 
data to the end of the existing data set can be made. In these 
cases: 


e The PARM parameter of the EXEC statement must imply or 
specify MOD. (CSee "PARM Information on the EXEC Statement"™ 
on page 274.) 


@ The DISP parameter of the SYSUT1 DD statement must specify 
OLD. 


If SYSUT1 and SYSUT2 define the same partitioned data set, new 
extents resulting from updates on SYSUT2 are not retrievable in 
SYSUT1. 


The input and output data sets contain blocked or unblocked 
logical records with record lengths of up to 80 bytes. The 
input and output data sets may have different block sizes as 
long as they are multiples of the logical record length. 


If an ADD operation is specified with PARM=NEW in the EXEC 
statement, the SYSUT] DD statement need not be coded. 


If the SYSUT1 DD statement defines a sequential data set on 
tape, the file sequence number of that data set must be included 
in the LABEL keyword Cunless the data set is the first or only 
data set on the volume). 


Space must be allocated for an output data set (SYSUT2 DD 
statement) that is to reside ona direct access device, unless 
the data set 1s an existing data set. 


The SYSUT2 DD statement must not specify a DUMMY data set. 


When adding a member to an existing partitioned data set using 
an ADD function statement, any DCB parameters specified on the 
SYSUT1 and SYSUT2 DD statements (Cor the SYSUT2 DD statement if 
that is the only one specified) must be the same as the DCB 
parameters already existing for the data set. 


If the SYSUT1 and SYSUT2 DD statements define the same 
sequential data set (BDAM only), only those operations that add 
data to the end of the existing data set can be made. In these 
cases: 


e The PARM parameter of the EXEC statement must imply or 
specify MOD. (See "PARM Information on the EXEC Statement" 
on page 2/4.) 


e han DISP parameter of the SYSUT2 DD statement must specify 


If SYSUT1 and SYSUT2 define the same partitioned data set, new 


oe resulting from updates on SYSUT2 are not retrievable in 
SUT1l. 
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The output data set can have a blocking factor that is different 


from the input data set; however, if insufficient space 1s “ar 
allocated for reblocked records, the update request is 
terminated. a rere 


The input and output data sets contain blocked or unblocked 
logical records with record lengths of up to 80 bytes. The 
input and output data sets may have different block sizes as 
long as they are multiples of the logical record length. 


If an UPDATE=INPLACE operation is specified, the SYSUT2 DD 
statement should not be coded. 


If both the SYSUTI1 and SYSUT2 DD statements specify standard 
user labels (SUL), IEBUPDTE copies user labels from SYSUTI to 
SYSUT2. 


If the SYSUT1 and SYSUT2 DD statements define the same 
partitioned data set, the old master data set can be updated 
without creating a new master data set; in this case, a copy of 
the updated member or members is written within the extent of 
the space originally allocated to the old master data set. 
Subsequent referrals to the updated member(s) will point to the 
newly written member(s). The member names themselves should not 
appear on the DD statements; they should be referred to only 
through IEBUPDTE control statements. The old directory entry 
for each member 185 not copied. 


SYSIN DD Statement 
The SYSIN DD statement is required for each use of ITEBUPDTE. 


UTILITY CONTROL STATEMENTS 


Figure 93 shows the utility control statements used to control : 
ITEBUPDTE. 


Statement Use 

Function Initiates an IEBUPDTE operation CADD, CHANGE, 
REPL, REPRO). 

Detail Used with the function statement for special 
applications. 

Data A logical record of data to be used aS a new or 
replacement record in the output data set. 

LABEL Indicates that the following data statements are 
to be treated as user labels. 

ALIAS Assigns aliases. 

ENDUP Terminates IEBUPDTE. 


Figure 93. IEBUPDTE Utility Control Statements 


Note: Unlike other utility control statements, all IEBUPDTE 
utility control statements Cincluding the NUMBER and DELETE 
detail statements, but not including data statements) must begin 
with a "./" (period, slash) in columns 1 and 2 


Continuation requirements for utility control statements are 
described in "Continuing Utility Control Statements" on page 5. 
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Function Statement 


The function statement CADD, CHANGE, REPL, or REPRO) is used to 
initiate an IEBUPDTE operation. At least one function statement 
must be provided for each member or data set to be processed. 


A member or a data set can be added directly to an old master 
data set if the space originally allocated to the old master is 


sufficient to incorporate that new member or data set. ADD 
specifies that a member or a data set is added to an old master 
data set. If a member is added and the member name already 


exists in the old master data set, processing is terminated. 
If, however, PARM=NEW 1s specified on the EXEC statement, the 
member is replaced. For a sequential output master data set, 
PARM=NEW must always be specified on the EXEC statement. At 
least one blank must precede and follow ADD. 


When a member replaces an identically named member on the old 
master data set or a member is changed and rewritten on the old 
master, the alias Cif any) of the original member still refers 
to the original member. However, if an identical alias is 
specified for the newly written member, the original alias entry 
in i directory is changed to refer to the newly written 
member. 


REPL specifies that a member of a data set is being entered in 
its entirety as a replacement for a sequential data set or for a 
member of the old master data set. The member name must already 
exist in the old master data set. At least one blank must 
precede and follow REPL. CHANGE specifies that modifications 
are to be made to an existing member or data set. Use of the 
CHANGE function statement without a NUMBER or DELETE detail 
statement, or a data statement causes an error condition. At 
least one blank space must precede and follow CHANGE. REPRO 
specifies that a member or a data set 1S copied in its entirety 
to a new master data set. At least one blank must precede and 
follow REPRO. 


Members are logically deleted from a copy of a library by being 
omitted from a series of REPRO function statements within the 
same job step. 


One sequential data set can be copied ina given job step. A 
sequential data set is logically deleted from a new volume by 
being omitted from a series of job steps which copy only the 
desired data sets to the new volume. If the NEW subparameter is 
coded in the EXEC statement, only the ADD function statement is 
permitted. 
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The format of the function statement is: 


./tlabel] | {ADD|CHANGE|REPL| REPRO} 
[LIST=ALL] 
L» SEQFLD=ddl] (ddl,ddl)] 
[,NEW=PO|PS] 


[ »MEMBER=cccecece] 
[,COLUMN=nn 1/1] 
[ ,UPDATE=INPLACE] 


[,INHDR=ccccccce] 
[,INTLR=ccceccce] 
[,OUTHDR=ccccccce] 
[,OUTTLR=cceccccece] 
C,TOTAL=(routinename 
[,NAME=ccececce] 
[,LEVEL=hh] 

[ »,SOURCE= x] 
[,SSI=hhhhbhhbh] 





Function Restrictions 
When UPDATE=INPLACE is specified: 
e The SYSUT2 DD statement is not coded. 


e The PARM parameter of the EXEC statement must imply or 
specify MOD. 


@ The NUMBER detail statement can be used to specify a 
renumbering operation. 


e Data statements can be used to specify replacement 
information only. 


e One CHANGE function statement and one UPDATE=INPLACE 
parameter are permitted per job step. 


e No functions other than replacement, renumbering, and header 
label modification (via the LABEL statement) can be 
specified. 

e Unless the entire data set 1s renumbered, only replaced 


records are listed. 
e System status information cannot be changed. 
When REPRO is specified: 
e The ADD statement can be used in the same job step only if 


both SYSUT1 and SYSUT2 are partitioned data sets; otherwise, 
unpredictable results can occur. 
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Within an existing logical record, the data in the field defined 
by the COLUMN parameter is replaced by data from a subsequent 
data statement, as follows: 


1. IJEBUPDTE matches a sequence number of a data statement with 
a sequence number of an existing logical record. In this 
manner, the COLUMN specification is applied to a specific 
logical record. 


2. The information in the field within the data statement 
replaces the information in the field within the existing 
logical record. For example, COLUMN=40 indicates that 
columns 40 through 80 Cassuming 80-byte logical records) of 
a subsequent data statement are to be used as replacement 
data for columns 40 through 80 of a logical record 
identified by a matching sequence number. CA sequence 
number in an existing logical record or data statement need 
not be within the defined field.) 


The COLUMN specification applies to the entire function, with 
the exception of: 


e Logical records deleted by a subsequent DELETE detail 
statement. 


® Subsequent data statements not having a matching sequence 
number for an existing logical record. 


e Data statements containing information to be inserted in the 
place of a deleted logical record or records. 


Figure 94 shows the use of NEW, MEMBER, and NAME parameters for 
different input and output data set organizations. 


Input Data Set | Output Data Set 
Organization Organization Parameter Combinations 


Partitioned Partitioned With an ADD function 
statement, use NAME to 
specify the name of the 
member to be placed in the 
partitioned data set 
defined by the SYSUT2 DD 
statement. If an 
additional name is 
required, an ALIAS 
statement can also be 
used. 

With a CHANGE, REPL, or 
REPRO function statement, 
use NAME to specify the 
name of the member within 
the partitioned data set 
defined by the SYSUT1 DD 
statement. If a different 
or additional name is 
desired for the member in 
the partitioned data set 
defined by the SYSUT2 DD 
statement, use an ALIAS 
statement also. 


Partitioned With each ADD function 
(New) 


statement, use NAME to 
Figure 94 (Part 1 of 2). NEW, MEMBER, and NAME Parameters 

































assign a name for each 
member to be placed in the 
partitioned data set. 


IEBUPDTE Program 279 











Input Data Set 
Organization 


Partitioned 


Sequential 


Figure 94 (Part 2 of 2). 


Detail Statement 


280 


A detail statement is used with a function statement for certain 


applications, 


records. The NUMBER detail statement specifies, when coded with 
that the sequence number of one or 
when coded with 
the sequence numbers to be 


a CHANGE function statement, 
more logical records is changed. 
an ADD or REPL function statement, 


Output Data Set 
Organization 


Sequential 


Partitioned 


Parameter Combinations 


With any function 
statement, use NAME to 
specify the name of the 
member in the partitioned 
data set defined by the 
SYSUT1 DD statement. Use 
NEW=PS to specify the 
change in organization 
from partitioned to 
sequential. (The name and 
file sequence number, if 


any, assigned to the 


output master data set are 
specified in the SYSUT2 DD 
statement. ) 


With applicable function 
statement, use MEMBER to 
asSign a name to the 
meinber to be placed in the 
partitioned data set 
defined by the SYSUT2 DD 
statement. Use NEW=P0 to 
specify the change in 
organization from 
sequential to partitioned. 





MEMBER, and NAME Parameters 


such as deleting or renumbering selected logical 


It specifies, 


assigned to the records within new or replacement members or 


data sets. When used with an ADD or REPL function statement, 
more than one NUMBER detail statement is permitted for each ADD 


or REPL function statement. If NUMBER is coded, it must be 


preceded and followed by at least one blank. 


The DELETE detail statement specifies, 
function statement, 
deleted from a member or data set. 


be preceded and followed by at least one blank. 


Logical records cannot be deleted in part; that is, a COLUMN 
parameter specification in a function statement is not 

applicable to records that are to be deleted. Each specific 
sequence number is handled only once in any single operation. 
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no 


when coded with a CHANGE 
that one or more logical records are to be 


If DELETE is coded, it must 




















Detail Restrictions 


The format of a detail statement is: 


-/Llabel| {(NUMBER| DELETE} [SEQ1=cccccccclALL] 


[,SEQ2=cccccccc] 
[,NEWl=ccceccece] 
[,INCR=ccccecece] 
[, INSERT=YES] 





When INSERT=YES is coded: 


The SEQ] parameter specifies the existing logical record 
peas which the insertion 18 made. SEQL=ALL cannot be 
code 


The SEQ2 parameter need not be coded. 


The NEW] parameter assigns a sequence number to the first 
logical record to be inserted. If the parameter is 
alphameric, the SEQFLD=(Cddl,ddl) parameter should be coded 
on the function statement. 


The INCR parameter is used to renumber as much as is 
necessary of the member or data set from the point of tHe 
first insertion; the member or data set is renumbered until 
an existing logical record is found whose sequence number is 
equal to or greater than the next sequence number to be 
assigned. If no such logical record is found, the entire 
member or data set is renumbered 


Additional NUMBER detail statements, if any, must specify 
INSERT=YES. If a prior numbering operation renumbers the 
logical record specified in the SEQ1 parameter of a 
subsequent NUMBER detail statement, any NEW] or INCR 
parameter specifications in the latter NUMBER detail 
statement are overridden. The prior increment value is used 
to assign the next successive sequence numbers. If a prior 
numbering operation does not renumber the logical record 
specified in the SEQ] parameter of a subsequent NUMBER 
detail statement, the latter statement must contain NEW] and 
INCR specifications. 


The block of data statements to be inserted must contain 
blank sequence numbers. 


The insert operation is terminated when a function 
statement, a detail statement, an end-of-file indication, or 
a data statement containing a sequence number 18S 
encountered. 


The SEQ], SEQ2, and NEW] parameters Cwith the exception of 
SEQI=ALL) specify eight (maximum) alphameric characters. 

The INCR parameter specifies eight Cmaximum) numeric 
characters. Only the significant part of a numeric sequence 
number need be coded; for example, SEQ1=00000010 can be 
shortened to SEQ1=10. If, however, the numbers are 
alphameric, the alphabetic characters must be specified; for 
example, SEQ1l=00ABC010 can be shortened to SEQ1=ABCO1O. 
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Data Statement 


LABEL Statement 


A data statement is used with a function statement, or with a 
function statement and a detail statement. It contains a 
logical record used as replacement data for an existing logical 
record, or new data to be incorporated in the output master data 
set. 


Fach data statement contains one logical record, which begins in 
the first column of the data statement. The length of the 
logical record is equal to the logical record length CLRECL) 
specified for the output master data set. Each logical record 
contains a sequence number to determine where the data is placed 
in the output master data set Cexcept when INSERT=YES is 
specified). 


When used with a CHANGE function statement, a data statement 
contains new or replacement data, as follows: 


e If the sequence number in the data statement 1s identical to 
a sequence number in an existing logical record, the data 
statement replaces the existing logical record in the output 
master data set. 


° If no corresponding sequence number is found within the 
existing records, the data statement 1s inserted in the 
proper collating sequence within the output master data set. 
(For proper execution of this function, all records in the 
old master data set must have a sequence number. ) 


e If a data statement with a sequence number is used and 
INSERT=YES was specified, the insert operation is 
terminated. IEBUPDTE will continue processing if this 
sequence number is at least equal to the next old master 
record (record following the referred to sequence record). 


When used with an ADD or REPL function statement, a data 
statement contains new data to be placed in the output master 
data set. 


Sequence numbers within the old master data set are assumed to 
be in ascending order. No validity checking of sequence numbers 
is performed for data statements or existing records. 


Sequence numbers in data statements must be in the same relative 
position as sequence numbers in existing logical records. 
CSequence numbers include leading zeros and are assumed to be in 
columns 73 through 80; 1f the numbers are in columns other than 
these, the length and relative position must be specified ina 
SEQFLD parameter within a preceding function statement.) 


The LABEL statement indicates that the following data statements 
(called label data statements) are to be treated as user labels. 
These new user labels are placed on the output data set. The 
next function statement indicates to IEBUPDTE that the last 
label data statement of the group has been read. 
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The format of the LABEL statement is: 


-/Enamel LABEL | 


There can be no more than two LABEL statements per execution of 
ITEBUPDTE. There can be no more than eight label data statements 
following any LABEL statement. The first 4 bytes of each 
80-byte label data statement must contain "UHLn"™ or "UTLn", 
where nis 1 through 8, for input header or input trailer labels 
respectively, to conform to IBM standards for user labels. 
Otherwise, data management will overlay the data with the proper 
four characters. 


When ITEBUPDTE encounters a LABEL statement, it reads up to eight 
data statements and saves them for processing by user output 
label routines. If there are no such routines, the saved 
records are written by OPEN or CLOSE as user labels on the 
output data set. If there are user output label processing 
routines, ITEBUPDTE passes a parameter list to the output label 
routines. (This parameter list is described fully in 

Appendix A, "Exit Routine Linkage™ on page 422.) The label 
buffer contains a label data record which the user routine can 
process before the record is written as a label. If the user 
routine specifies (via return codes to IEBUPDTE) more entries | 
than there are label data records, the label buffer will contain 
meaningless information for the remaining entries to the user 
routine. 


The position of the LABEL statement in the SYSIN data set, 
relative to any function statements, indicates the type of user 
label that follows the LABEL statement: 


e To create output header labels, place the LABEL statement 
and gee enc iaees label data statements before any function 
statements in the input stream. A function statement, other 
than LABEL, must follow the last label data statement of the 
group. 


e To create output trailer labels, place the LABEL statement 
and its associated label data statements after any function 
statements in the input stream, but before the ENDUP 
statement. The ENDUP statement is not optional in this 
case. It must follow the last label data statement of the 
group if ITEBUPDTE is to create output trailer labels. 


When UPDATE=INPLACE is specified in a function statement, user 
input header labels can be updated by user routines, but input 
trailer and output labels cannot be updated by user routines. 
User labels cannot be added or deleted. User input header 
labels are made available to user routines by the label buffer 
address in the parameter list. (See Appendix C, "Processing 
User Labels" on page 426, for a complete discussion of the 
linkage between utility programs and user label processing 
routines.) The return codes when UPDATE=INPLACE is used differ 
slightly from the standard codes discussed in Appendix C, as 
indicated in Figure 95 on page 284. 
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ALIAS Statement 


Codes Meaning —_ 
i 
00 (00 hex) The system resumes normal processing; any 
additional user labels are ignored. 
0G (04) The system does not write the label. The next user 
label is read into the label buffer area and 
control is returned to the user's routine. If 
there are no more user labels, the system resumes 
normal processing. 
08 (08) The system writes the user labels from the label 
buffer area and resumes normal processing. 
l2 (0C) The system writes the user label from the label 
buffer area, then reads the next input label into 
the label buffer area and returns control to the 
label processing routine. If there are no more 
user labels, the system resumes normal processing. 
Figure 95. UPDATE=INPLACE Return Codes 
If you want to examine the replaced labels from the old master 
data set, you must: 
l. Specify an update of the old master by coding the 
UPDATE=INPLACE parameter ina function statement. 
2. Include a LABEL statement in the input data set for either 
header or trailer labels. 
3. Specify a corresponding user label routine. > 


If the above conditions are met, fourth and fifth parameter 
words will be added to the standard parameter list. The fourth 
parameter word is not now used; the fifth contains a pointer to 
the replaced label from the old master. In this case, the 
number of labels supplied in the SYSIN data set must not exceed 
the number of labels on the old master data set. If you 
specify, via return codes, more entries to the user's header 
label routine than there are labels in the input stream, the 
first parameter will point to the current header label on the 
old master data set for the remaining entries. In this case, 
the fifth parameter 1S meaningless. 


The ALIAS statement is used to create or retain an alias in an 
output Cpartitioned) directory. The ALIAS statement can be used 
with any of the function statements. Multiple aliases can be 
assigned to each member, up to a maximum of 16 aliases. 


If an ALIAS statement specifies a name that already exists on 
the data set, the original TTR (track record) of that directory 
entry will be destroyed. 


ALIAS must be preceded and followed by at least one blank. If 
ALIAS statements are used, they must follow the data statements, 
if any, in the input stream. 


The format of the ALIAS statement is: 


-/Tlabel]J ALIAS NAME=cccccece Pa 
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ENDUP Statement 


An ENDUP statement is used to indicate the end of SYSIN input to 
this job step. If there is no other preceding delimiter 
statement, it serves as an end-of-data indication. The ENDUP 
statement follows the last group of SYSIN control statements. 


ENDUP must be preceded and followed by at least one blank. The 
ENDUP statement must follow the last label data statement if 
IEBUPDTE 1s used to create output trailer labels. 


The format of the ENDUP statement is: 






Applicable 
Control 
Statements 







a 
a 
COLUMN CHANGE COLUMN=nnI1 
specifies, in decimal, the starting column of a 
data field within a logical record image. The 
field extends to the end of the image. Within 
an existing logical record, the data in the 
| defined field is replaced by data from a 
subsequent data statement. See "Function 
Restrictions"™ on page 278 for restrictions on 
COLUMN. 


INCR NUMBER INCR=cccccecce 
specifies an increment value used for assigning 
INHDR 
CHANGE 


successive sequence numbers to new or 
INSERT 
NUMBER 


Description of Parameters 


ot 
1s required for each utility control statement 
and must appear in columns 1 and 2. 












replacement logical records, or specifies an 
increment value used for renumbering existing 
logical records. 












INHDR=ccccccce 
specifies the name of the user routine that 
handles any user input (SYSUT1) header labels. 
This parameter is valid only when a sequential 

data set 1s being processed. 


INSERT=YES 
specifies the insertion of a block of logical 
records. The records, which are data statements 
containing blank sequence numbers, are numbered 
and inserted in the output master data set. 
INSERT is valid only when coded with both a 
CHANGE function statement and a NUMBER detail 
statement. SEQ1l, NEW1]L, and INCR are required on 

the first NUMBER detail statement. See "Detail 

Restrictions" on page 281 for more information 

on INSERT=YES. 
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Applicable 


Control 


Parameters Statements Description of Parameters 


INTLR 
































INTLR=ccccccece 
specifies the name of the user routine that 
handles any user input CSYSUT1) trailer labels. 
INTLR is valid only when a sequential data set 
is mere processed, but not when UPDATE=INPLACE 

is coded. 





label abe | 
specifies an optional label for the statement 
that begins in column 3 and extends no further 


than column 10 






LEVEL LEVEL=hh 
specifies the change (update) level in 
hexadecimal (C00-FF). The level number is 
recorded in the directory entry of the output 
member. This parameter is valid only when a 
member of a partitioned data set 1s being 
processed. LEVEL has no effect when SSI is 
specified. 


LIST=ALL 
specifies that the SYSPRINT data set is to 
contain the entire updated member or data set 
and the control statements used in its creation. 


Default: For old data sets, if LIST is omitted, 
the SYSPRINT data set contains modifications and 
control statements only. If UPDATE was 
specified, the entire updated member is listed 
only when renumbering has been done. For new 
data sets, the entire member or data set and the 
control statements used in its creation are 
always written to the SYSPRINT data set. 






LIST 


























MEMBER MEMBER=ccccccce 
specifies a name to be assigned to the member 
placed in the partitioned data set defined by 
the SYSUT2 DD statement. MEMBER is used only 
when SYSUTL defines a sequential data set, 
SYSUT2 defines a partitioned data set, and 
NEW=PO is specified. Refer to Figure 94 on 
page 279 for the use of MEMBER with NEW. 


For the ALIAS statement: 






NAME=cccceccce 
 gpecifies a l- to 8-character alias name. 


For all other statements: 


NAME=ccccccce 
indicates the name of the member placed into the 
partitioned data set. The member name need not 
be specified in the DD statement itself. NAME 
must be provided to identify each input member. 
Refer to Figure 94 on page 279 for the use of 
NAME with NEW. This parameter is valid only 
when a member of a partitioned data set is being 
processed. 
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Applicable 
Control 
Statements Description of Parameters 


| Po 
| ( Parameters 


NEW NEW=PO|[PS 
specifies the organization of the old master 
data set and the organization of the updated 
output. NEW should not be specified unless the 
organization of the new master data set is 
different from the organization of the old 
master. NEW can only be coded on the first 
control card. Refer to Figure 94 on page 279 
for the use of NEW with NAME and MEMBER. These 
values can be coded: 


PO 





specifies that the old master data set is a 
sequential data set, and that the updated 
output is to become a member of a 
partitioned data set. 


specifies that the old master data set is a 
partitioned data set, and that a member of 
that data set 1s to be converted into a 
sequential data set. 
NEW1 NUMBER NEWl=cccecccce : 
specifies the first sequence number assigned to 
new or replacement data, or specifies the first 
sequence number assigned in a renumbering 
operation. A value specified in NEW] must be 
greater than a value specified in SEQ] Cunless 
SEQI=ALL is specified, in which case this rule 
does not apply). 








( | OUTHDR OUTHDR=ccecccce 
= specifies the name of the user routine that 

handles any user output (CSYSUT2) header labels. 
OUTHDR is valid only when a sequential data set 
1s being processed, but not when UPDATE=INPLACE 
1s coded. 

OUTTLR OUTTLR=ccccccce 
specifies the name of the user routine that 
handles any user output (SYSUT2) trailer labels. 
OUTTLR is valid only when a sequential data set 
is eae processed, but not when UPDATE=INPLACE 
is coded. 





1 
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Applicable 


Control 


if 

fk 

{- e 
Parameters Statements Description of Parameters , 





SEQ] NUMBER SEQ1l=cccecccc]ALL 


DELETE 


specifies records to be renumbered, deleted, or 
assigned sequence numbers. These values can be 
coded: 


ecccccecce 
specifies the sequence number of the first 
logical record to be renumbered or deleted. 
This value is not coded in a NUMBER detail 
statement that 1s used with an ADD or REPL 
fur.ction statement. When this value is 
used in an insert operation, it specifies 
the existing logical record after which an 
insert is to be made. It must not equal 
the number of a statement just replaced or 
added. Refer to the INSERT parameter for 
additional discussion. 


ALL 
specifies a renumbering operation for the 
entire member or data set. ALL is used 
only when a CHANGE function statement and a 
NUMBER detail statement are used. ALL must 
be coded if sequence numbers are to be 
assigned to existing logical records having 
blank sequence numbers. If ALL is not 
coded, all existing logical records having 
blank sequence numbers. copied directly to 
the output master data set. When ALL is 
coded: (1) SEQ2 need not be coded and (2) 
one NUMBER detail statement is permitted 
per function statement. Refer to the ‘oe 
INSERT parameter for additional discussion. Ne 


SEQ2 NUMBER SEQ2=ccccecce 


DELETE 
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specifies the sequence number of the last 
logical, record to be renumbered or deleted. 
SEQ2 1s required on all DELETE detail 


statements. If only one record is to be 
deleted, the SEQ] and SEQ2 specifications must 
be identical. SEQ2 is not coded in a NUMBER 
detail statement that is used with an ADD or 
REPL function statement. 








Utilities 





Applicable 
Control 
Parameters Statements Description of Parameters 


SEQFLD SEQFLD=ddlI1(ddl,ddl) 
ddl specifies, in decimal, the starting column 
Cup to column 80) and length ¢€8 or less) of 
sequence numbers within existing logical records 
and subsequent data statements. Note that the 
starting column specification (dd) plus the 
length (1) cannot exceed the logical record 
length CLRECL) plus 1. Sequence numbers on 
incoming data statements and existing logical 
records must be padded to the left with enough 
zeros to fill the length of the sequence field. 





(ddl,ddl) 
may be used when an alphameric sequence 
number generation 18S required. The first 
ddl specifies the sequence number columns 
as above. The second ddl specifies, in 
decimal, the starting column Cup to column 
80) and length (8 or less) of the numeric 
portion of the sequence numbers in 
subsequent NUMBER statements. This 
information is used to determine which 
portion of the sequence number specified by 
the NEW] parameter may be increased and 
which portion €s) should be copied to 
generate a new sequence number for inserted 
or renumbered records. 








The numeric columns must fall within the 
sequence number columns specified Cor 
: ( defaulted) by the first ddl. 


Default: 738 is assumed, that is, an 8-byte 


sequence number beginning in column 73. 
Therefore, if existing logical records and 
subsequent data statements have sequence 
numbers in columns 73 through 80, this 
keyword need not be coded. 


SOURCE SOURCE=~x 
specifies user modifications when the x value is 
0, or IBM modifications when the x value is l. 
The source is recorded in the directory entry of 
the output member. This parameter 1s valid only 
when a member of a partitioned data set is being 
processed. SOURCE has no effect when SSI 1s 
specified. 


SSI SSI=hhhhhhhh 
specifies eight hexadecimal characters of system 
status information (SSI) to be placed in the 
directory of the new master data set as four 
packed decimal bytes of user data. This 
parameter 1s valid only when a member of a 
partitioned data set 1s being processed. SSI 
overrides any LEVEL or SOURCE parameter given on 


the same function statement. 
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Applicable 
Control 
Statements 









Parameters 


TOTAL 


UPDATE CHANGE 


EB EX 


Description of Parameters 






TOTAL=(Croutinename,size) 
specifies that exits to a user's routine are to 
be provided prior to writing each record. This 
parameter 1s valid only when a sequential data 
set 1s being processed. These values are coded: 
routinename 
specifies the name of the user's totaling 
routine. 





















specifies the number of bytes required for 
the user's data. The size should not 
exceed 32K, nor be less than 2 bytes. In 
addition, the keyword OPTCD=T must be 
specified for the SYSUT2 Coutput) DD 
statement. Refer to Appendix A, “Exit 
Routine Linkage" on page 422 for a 
discussion of linkage conventions for user 
routines. 


UPDATE=INPLACE 
specifies that the old master data set is to be 
updated within the space it actually occupies. 
The old master data set must reside ona direct 
access device. UPDATE=INPLACE is valid only 
when coded with CHANGE. No other function 
statements CADD, REPL, REPRO) may be in the same 
job step. See "Function Restrictions” on 
page 278 for restrictions on using 
UPDATE=INPLACE. See "LABEL Statement™ on 
page 282 for information on updating user input 

header labels. 










The following examples illustrate some of the uses of IEBUPDTE. 
Figure 96 can be used as a quick-reference guide to ITEBUPDTE 
examples. The numbers in the "Example" column point to examples 
that follow. 


Data Set 
Operation Organization Device Comments Example 


ADD and Partitioned Disk SYSUT1 and SYSUT2 DD 

REPL statements define the same 
data set. A JCL procedure 
residing in the control data 
set is stored as a new 
member of a procedure 
library CPROCLIB). Another 
JCL procedure, also in the 
IEBUPDTE control data set, 
is to replace an existing 
member in PROCLIB. 


Figure 96 (Part 1 of 2). IEBUPDTE Example Directory 
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Nie et 
Ni. dev stin 








Comments 


nal 


Example 





Data Set — 
( Operation Organization Device 


CREATE a Partitioned Disk 
partitioned 
library 


Input data is in the control 
data set. Output 
partitioned data set is to 
contain three members. 







CREATE a Partitioned 
partitioned 
data set 


Disk Input from control data set 
and from existing 
partitioned data set. 

Output partitioned data set 
is to contain three members. 
Disk. Input data set is considered 
to be the output data set as 


well; therefore, no SYSUT2 
DD statement is required. 


UPDATE Partitioned 
INPLACE and 
renumber 


CREATE and Partitioned, 
DELETE Sequential 


Disk and 
ape 


Sequential master is created 
from partitioned disk input. 
Selected records are to be 
deleted. Blocked output. 


CREATE, Sequential, 
DELETE, and Partitioned 
UPDATE 


INSERT Partitioned Disk 


INSERT Partitioned Disk 


Partitioned data set is 
created from sequential 
input. Records are to be 
deleted and updated. 
Sequence numbers in columns 
other than 73 through 80. 
One member is placed in the 
output data set. 


Tape and 
Disk 





Block of logical records is 
inserted into an existing 
member. SYSUT1 and SYSUT2 
DD statements define the 
same data set. 













Two blocks of logical 
records are to be inserted 
into an existing member. 
SYSUT1 and SYSUT2 DD 
statements define the same 
data set. Sequence numbers 
are alphameric. 





Card 


CREATE Sequential 
Reader and 


Disk 
user labels can be processed 


COPY Sequential Disk 
by exit routines. 


Figure 96 (Part 2 of 2). IEBUPDTE Example Directory 


Sequential data set with 
user labels is to be created 
from card input. 





Sequential data set 1s 
copied from one direct 
access volume to another; 


_ ~ <N oe NO 
on 


p= 
oat 


Examples that use disk or tape in place of actual device numbers 
must be changed before use. See "DASD and Tape Device Support" 
on page 3 for valid device number notation. 
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IEBUPDTE EXAMPLE 1 


In this example, two procedures are to be placed in the a. 
cataloged procedure library, SYS1.PROCLIB. The example assumes 


that the two procedures can be accommodated within the space — 


originally allocated to the procedure library. 


//UPDATE JOB... 

// EXEC PGM=IEBUPDTE,PARM=MOD 
//SYSPRINT DD SYSOUT=A 

J/SYSUTI1 DD DSNAME=SYS1.PROCLIB, DISP=OLD 
S/SYSUT2 DD DSNAME=SYS1.PROCLIB, DISP=OLD 
S/SSYSIN DD DATA 

WA ADD LIST=ALL,NAME=ERASE,LEVEL=01,SQOURCE=0 
ey NUMBER NEW1=10, INCR=10 

//ERASE EXEC PGM=IEBUPDTE 

//DD1 DD UNIT=disk, DISP=COLD,KEEP),VOLUME=SER=111111 
//SYSPRINT DD SYSOUT=A 

WA REPL LIST=ALL,NAME=LISTPROC 

es NUMBER NEW1=10,INCR=10 

//LIST EXEC PGH=IEBGENER 

//SYSPRINT DD SYSOUT=A 

//SYSUT1 DD DISP=SHR, 

// DSN=SYS1.PROCLIBC&MEMBER) 
S/SYSUT2 DD SYSOUT=A, 

/f DCB=CRECFM=F, BLKSIZE=80) 
4/SYSIN DD DATA 

(Data statements) 

4 ENDUP 

1X 





The control statements are discussed below: a 


e SYSUT1 and SYSUT2 DD define the SYS].PROCLIB data set, which ~*~ 
1s assumed to be cataloged. 


® SYSIN DD defines ‘the control data set, which follows in the 
input stream. The data set contains the utility control 
statements and the data to be placed in the procedure 
library. 


e The ADD function statement indicates that records (data 
statements) in the control data set are to be placed in the 
output. The newly created procedure, ERASE, is listed in 
the message data set. 


The ADD function will not take place if a member named ERASE 
already exists in the new master data set referenced by 
SYSUT2. | 


e The first NUMBER detail statement indicates that the new and 
replacement procedures are to be assigned sequence numbers. 
The first record of each procedure is assigned sequence 
Melee 10; the next record 1s assigned sequence number 20, 
and so on. 


e The REPL function statement indicates that records (data 
statements) in the control data set are to replace an 
already existing member. The member is stored in the new 
master data set referenced by SYSUT2. The REPL function 
will take place only if a member named LISTPROC already 
exists in the old master data set referenced by SYSUT1. 


e The ERASE EXEC statement marks the beginning of the first 
new procedure. 


e The REPL function statement indicates that records (data / 
statements) in the control data set are to replace an a 
already existing member. The member is stored in the new 
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IEBUPDTE EXAMPLE 2 


master data set referenced by SYSUT2. The REPL function 
will only take place if a member named LISTPROC already 
exists in the old master data set referenced by SYSUTI. 


Ds rie NUMBER detail statement is a duplicate of the 
irst. 


The LIST EXEC statement marks the beginning of the second 
new procedure. 


The ENDUP statement marks the end of the SYSIN DD input 
data. 


In this example, a three-member partitioned library is created. 
The input data is contained solely in the control data set. 


1/7 
// 
1/7 
4/ 
// 


1/ 
17 
A 


CD 
a4 
CD 
af 
CD 


ee 
7*® 


UPDATE JOB sss 
EXEC PGM=IEBUPDTE, PARM=NEW 
SYSPRINT DD SYSOUT=A 
SYSUT2 DD DSNAME=OUTLIB,UNIT=disk, DISP=CNEW,KEEP), 
VOLUME=SER=111112,SPACE=CTRK, (50,,10)), 
DCB=CRECFM=F,LRECL=80, BLKSIZE=80) 
SYSIN DD DATA 
ADD NAME=MEMB1,LEVEL=00,S0URCE=0,LIST=ALL 


ata statements, sequence numbers in columns 73 through 80) 
ADD NAME=MEMB2,LEVEL=00, SOURCE=0,LIST=ALL 

ata statements, sequence numbers in columns 73 through 80) 
ADD NAME=MEMB3,LEVEL=00,SOURCE=0,LIST=ALL 

ata statements, sequence numbers in columns 73 through 80) 


ENDUP 





The control statements are discussed below: 


SYSUT2 DD defines the new partitioned master, OUTLIB. 
Enough space is allocated to allow for subsequent 
modifications without creating a new master data set. 


SYSIN DD defines the control data set, which follows in the 
input stream. The data set contains the utility control 
statements and the data to be placed as three members in the 
output partitioned data set. 


The ADD function statements indicate that subsequent data 
statements are to be placed as members in the output 
partitioned data set. Each ADD function statement specifies 
a member name for subsequent data and indicates that the 
member and control statement is listed in the message data 
set. 


The data statements contain the data to be placed in each 
output partitioned data set. 


ENDUP signals the end of control data set input. 


Because sequence numbers Cother than blank numbers) are included 
within the data statements, no NUMBER detail statements are 
included in the example. 
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‘IEBUPDTE EXAMPLE 3 


In this example, a three-member partitioned data set CNEWMCLIB) 
is created. The data set will contain: 


Two members CATTACH and DETACH) copied from an existing 
partitioned data set (SYS1.MACLIB). | 


A new member CEXIT), which is contained in the control data 
set. | 


//UPDATE JOB... 
// EXEC PGM=IEBUPDTE,PARM=MOD 
//SYSPRINT DD SYSOUT=A 
//SYSUTI DD DSNAME=SYS1.MACLIB, DISP=SHR,UNIT=disk 
S/SSYSUT2 DD DSNAME=NEWMCLIB, VOLUME=SER=111112,UNIT=disk, 
DISP=CNEW,KEEP),SPACE=CTRK,(€100,,10)), 
DCB=CRECFM=F,LRECL=80, BLKSIZE=80) 
DD DATA 


REPRO NAME=ATTACH, LEVEL=00, SOURCE=1,LIST=ALL 


REPRO NAME=DETACH, LEVEL =00,SOURCE=1,LIST=ALL 
ADD NAME=EXIT,LEVEL=00,S0URCE=1,LIST=ALL 
NUMBER NEW1=10, INCR=100 


(Data records for EXIT member) 


af ENDUP 
/% 





The control statements are discussed below: 


SYSUT1 DD defines the input partitioned data set 
SYS1.MACLIB, which is assumed to be cataloged. 


SYSUT2 DD defines the output partitioned data set NEWMCLIB. 
Enough space is allocated to allow for subsequent 
modifications without creating a new master data set. 


SYSIN DD defines the control data set, which follows in the 
input stream. 


The REPRO function statements identify the existing input 
members CATTACH and DETACH) to be copied onto the output 
data set. These members are also listed in the message data 
set (because LIST=ALL 1s specified). 


The ADD function statement indicates that records 
(subsequent data statements) are to be placed as members in 
the output partitioned data set, called EXIT. The data 
statements are to be listed in the message data set. 


The NUMBER detail statement assigns sequence numbers to the 
data statements. (The data statements contain blank 
sequence numbers in columns 73 through 80.) The first 
record of the output member is assigned sequence number 10; 
subsequent record numbers are increased by 100. 


ENDUP signals the end of SYSIN data. 


Note that the three named input members CATTACH, DETACH, and 
EXIT) do not have to be specified in the order of their 
collating sequence in the old master. 
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IEBUPDTE EXAMPLE 4 


In this example, a member CMODMEMB) is updated within the space 
it actually occupies. Two existing logical records are 
replaced, and the entire member is renumbered. 


//UPDATE JOB 

/f EXEC PGM= TEBUPDTE,PARM=MOD 

77SYSPRINT DD SYSOUT=A 

“/SYSUTI DD DSNAME=PDS,UNIT=disk, DISP=COLD, KEEP), 
7 VOLUME=SER=111112 

S/SYSIN DD % 

WA CHANGE NAME=MODMEMB,LIST=ALL,UPDATE=INPLACE 
A NUMBER SEQIL=ALL,NEW1=10,INCR=5 


(Data statement 1, sequence number 00000020) 
(Data statement 2, sequence number 00000035) 


7% 





The control statements are discussed below: 


@ SYSUT1 DD defines the partitioned data set that is updated 
in place. (Note that the member name need not be specified 
in the DD statement. ) 


e SYSIN DD defines the control data set, which follows in the 
input stream. 


8 The CHANGE function statement indicates the name of the 
member to be updated (MODMEMB) and specifies the 
UPDATE=INPLACE operation. The entire member is listed in 
the message data set. Note that, as renumbering 1s being 
done, and since UPDATE=INPLACE was specified, the listing 
would have been provided even if the LIST=ALL parameter had 
not been specified. See the LIST parameter for more 
information. 


e The NUMBER detail statement indicates that the entire member 
1s to be renumbered, and specifies the first sequence number 
to be assigned and the increment value (5) for successive 
sequence numbers. 


e The data statements replace existing logical records having 
sequence numbers of 20 and 
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ITEBUPDTE EXAMPLE 5 





In this example, a new master sequential data set is created 
from partitioned input and selected logical records are deleted. 


//UPDATE JOB... 

// EXEC PGM=IEBUPDTE, PARM=MOD 

Z/SYSPRINT DD SYSOUT=A 

//SYSUTI1 DD DSNAME=PARTDS,UNIT=disk, DISP=(COLD,KEEP), 
Sf VOLUME=SER=111112 

S/SYSUT2 DD DSNAME=SEQDS,UNIT=tape,LABEL=(2,SL), 

// DISP=(, KEEP), VOLUME=SER=001234, 

// DCB=CRECFM=FB,LRECL=80, BLKSIZE=2000) 
“/SYSIN DD X 

7 


CHANGE NEW=PS,NAME=OL DMEMB1 
(Data statement 1, sequence number 00000123) 
Jf DELETE SEQ1=223, SEQ2=246 
(Data statement 2, sequence number 00000224) 


7% 





The control statements are discussed below: 


SYSUT1 DD defines the input partitioned data aor PARTDS, 
which resides ona disk volume. 


SYSUT2 DD defines the output sequential data set, SEQDS. 
Ve data set is written as the second data set on a tape 
volume. 


SYSIN DD defines the control data set, which follows in the 
input stream. 


CHANGE identifies the input member COLDMEMB1) and indicates 
that the output is a sequential data set (NEW=PS). 


The first data statement replaces the logical record whose 
sequence number is identical to the sequence number in the 
data statement €00000123). If no such logical record 
exists, the data statement is incorporated in the proper 
sequence within the output data set. 


The DELETE detail statement deletes logical records having 
sequence numbers from 223 through 246, inclusive. 


The second data statement is inserted in the proper sequence 
in the output data set, because no logical record with the 
sequence number 224 exists (it was deleted in the previous 
statement) 


Note that only one member can be used as input when converting 
to sequential organization. 
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IEBUPDTE EXAMPLE 6 





i In this example, a member of a partitioned data set is created 
, from sequential input and existing logical records are updated. 


//UPDATE JOB... 

// EXEC PGM=IEBUPDTE,PARM=MOD 

“/SYSPRINT DD SYSOUT=A 

“/SYSUTI DD DSNAME=GLDSEQDS,UNIT=tape, 

// DISP=COLD, KEEP), VOLUME=SER=001234 
S/SYSUT2 DD DSNAME=NEWPART,UNIT=disk, DISP=(,KEEP), 
// VOLUME=SER=111112,SPACE=(TRK,(10,5,5)), 
// DCB=CRECFM=F,LRECL=80, BLKSIZE=80) 
S/SYSIN DD xX 


v4 CHANGE NEW=P0,MEMBER=PARMEMI,LEVEL=01, 
ot 


SEQFLD=605,COLUMN=40,SOQURCE=0 
(Data statement 1, sequence number 00020) 
ff DELETE SEQ1=220,SEQ2=250 


(Data statement 2, sequence number 00230) 
(Data statement 3, sequence number 00260) 


A ALIAS NAME=MEMB1 
1X 





The control statements are discussed below: 





SYSUT1 DD defines the input sequential data set COLDSEQDS). 
The data set resides ona tape volume. 


SYSUT2 DD defines the output partitioned data set CNEWPART). 
Enough space is allocated to provide for members that might 
be added in the future. 


SYSIN DD defines the control data set, which follows in the 
input stream. 


The CHANGE function statement identifies the output member 
CPARMEM1) and indicates that a conversion from sequential 
input to partitioned output is made. The SEQFLD parameter 
indicates that a 5-byte sequence number is located in 
columns 60 through 64 of each data statement. The COLUMN=40 
parameter specifies the starting column of a field Cwithin 
subsequent data statements) from which replacement 
information 1s obtained. SOURCE=0 indicates that the 
replacement information is provided by you. 


The first data statement is used as replacement data. 
Columns 40 through 80 of the statement replace columns 40 
through 80 of the corresponding logical record. If no such 
logical record exists, the entire card image 1s inserted in 
the output data set member. 


The DELETE detail statement deletes all of the logical 
records having sequence numbers from 220 through 250. 


The second data statement, whose sequence number falls 
within the range specified in the DELETE detail statement 
above, iS incorporated in its entirety in the output data 
set member. 


The third data statement, which is beyond the range of the 


DELETE detail statement, is treated in the same manner as 
the first data statement. 
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IEBUPDTE EXAMPLE 7 





ALIAS assigns the alias name MEMB1 to the output data set 
member PARMEMIL. 


In this example, a block of three logical records is inserted 
into an existing member, and the updated member is placed in the 
existing partitioned data set. 


//UPDATE JOB. go 

// EXEC PGM=IEBUPDTE,PARM=MOD 

//SYSPRINT DD SYSOUT=A 

S/SYSUTI DD DSNAME=PDS,UNIT=disk, DISP=COLD,KEEP), 
7 VOLUME=SER=111112 

4/3YSUT2 DD DSNAME=PDS,UNIT=disk, DISP=COLD,KEEP), 
17 VOLUME=SER=111112 

Z/SYSIN DD xX 

Er CHANGE NAME=RENUM, LIST=ALL,LEVEL=01,50URCE=0 
A NUMBER SEQ1=15,NEW1=20, INCR=5, INSERT=YES 


(Data statement 1) 
(Data statement 2) 
(Data statement 3) 


7% 





The control statements are discussed below: 
@ SYSUT1 and SYSUT2 DD define the partitioned data set (PDS). 


e SYSIN DD defines the control data set, which follows in the —~ 
input stream. 


s The CHANGE function statement identifies the input member 
RENUM. The entire member is listed in the message data set. 

@ The NUMBER detail statement specifies the insert operation 
and controls the renumbering operation as described below. 

e The data statements are the logical records to be inserted. 
(Sequence numbers are assigned when the data statements are 
inserted.) ° 

In this example, the existing logical records have sequence 

numbers 10, 15, 20, 25, and 30. Sequence numbers are assigned 

by the NUMBER detail statement, as follows: 

1. Data statement 1 is assigned sequence number 20 CNEW1=20) 
and inserted after existing logical record 15 (SEQ1=15). 

2. Data statements 2 and 3 are assigned sequence numbers 25 and 
30 CINCR=5) and are inserted after data statement l. : 

3. Existing logical records 20, 25, and 30 are assigned | 
sequence numbers 35, 40, and 45, respectively. | 

Figure 97 shows existing sequence numbers, data statements 

inserted, and the resultant new sequence numbers. 
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IEBUPDTE EXAMPLE 8 


Sequence Numbers and 
Data Statements 


Inserted New Sequence Numbers 
10 10 
15 15 
Data statement 1 20 
Data statement 2 25 
Data statement 3 30 
20 35 
25 G0 
30 G5 
Figure 97. Example of Reordered Sequence Numbers 


In this example, two blocks (Cthree logical records per block) 
are inserted into an existing member, and the member is placed 
in the existing partitioned data set. A portion of the output 
member is also renumbered. 


//UPDATE JOB. 63 

// EXEC PGM=IEBUPDTE,PARM=MOD 

“7/SYSPRINT DD SYSOUT=A 

//SYSUT1 DD DSNAME=PDS,UNIT=disk, DISP=(OLD,KEEP), 
// VOLUME=SER=111112 

//7SYSUT2 DD DSNAME=PDS,UNIT=disk, DISP=COLD,KEEP), 
// VOLUME=SER=111112 

S/SYSIN DD xX 

aa CHANGE NAME=RENUM,LIST=ALL,LEVEL=01,S0QURCE=0, 
A SEQFLD=(765,783) 

a NUMBER SEQ1=AA015,NEW1=AA020, INCR=5, INSERT=YES 


statement 1) 
statement 2) 
statement 3) 


NUMBER SEQL=AA030,INSERT=YES 


statement 4) 
statement 5) 
statement 6) 
statement 7, sequence number AA035) 





The control statements are discussed below: 
° SYSUT1 and SYSUT2 DD define the partitioned data set PDS. 


e SYSIN DD defines the control data set, which follows in the 
input stream. 


e The CHANGE function statement identifies the input member 
RENUM. The entire member is listed in the message data set. 


@ The NUMBER detail statements specify the insert operations 


CINSERT=YES) and control the renumbering operation as 
described below. 
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e Data statements 1, 2, 3, and 4, 5, 6 are the blocks of 
logical records to be inserted. Because they contain blank 
sequence numbers, sequence numbers are assigned when the 
data statements are inserted 


e Data statement 7, because it contains a sequence number, 
terminates the insert operation. The sequence number is 
identical to the number on the next record in the old master 
data set; consequently, data statement 7 will replace the 
equally numbered old master record in the output data set. 


The existing logical records in this example have sequence 
numbers AA010, AAOD15, AA020, AA025, AAOD3S0, AAD3S5, AADGO, AADNGS, 
AA050, BBO10, and BBO1L5. The insert and renumbering operations 
are performed as follows: 


1. Data statement 1 is assigned sequence number AA020 
CNEW1L=AA020) and inserted after existing logical record 
AA015 CSEQ1=AA015). 


2. Data statements 2 and 3 are assigned sequence numbers AA025 
and AA030 CINCR=5) and are inserted after data statement 1. 


3. Existing logical records AA020, AA025, and AA030 are 
assigned sequence numbers AA035, AA0Q460, and AA045, 
respectively. 


G. Data statement 4 is assigned sequence number AA050 and 
inserted. (The SEQ1L=AA030 specification in the second 
NUMBER statement places this data statement after existing 
retraces record AA030, which has become logical record 


5. Data statements 5 and 6 are assigned sequence numbers AA055 
and AA060 and are inserted after data statement 4 


6. Existing logical record AA035 is replaced by data statement 
7, which is assigned sequence number AAO065. 


7. The remaining logical records in the member are renumbered 
until logical record BBO10 is encountered. Because this 
record has a sequence number higher than the next number to 
be assigned, the renumbering operation is terminated. 
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Figure 98 shows existing sequence numbers, data statements 
inserted, and the new sequence numbers. Note that the sequence 
numbers are alphameric. 


Sequence Numbers and 
Data Statements 


Inserted New Sequence Numbers 
AA010 AA0N10 
AA0Q15 AAO15 

Data statement 1 AA020 

Data statement 2 AAD25 

Data statement 3 AA030 
AA020 AA0Q35 
AA025 AA040 
AA030 AA0GS5 

Data statement 4 AA050 

Data statement 5 AA0N55 

Data statement 6 AA060 

Data statement 7 AA065 
AA035 AAQ65 
AA0GO AA070 
AA0G5 AA070 
AA050 AA075 
BBO10 BBO1O 
BBOLD5 BBOL5 
Figure 98. Reordered Sequence Numbers 
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IEBUPDTE EXAMPLE 9 


In this example, IEBUPDTE is used to create a sequential data ff ™ 
set from card input. User header and trailer labels, also from 
the input stream, are placed on this sequential data set. - 


//LABEL JOB 

//CREATION EXEC PGM=IEBUPDTE, PARM=NEW 

//SYSPRINT DD SYSOUT=A 

//SYSUT2 DD DSNAME=LABEL, VOLUME=SER=123456,UNIT=disk, 
// DISP=(NEW, KEEP),LABEL=C,SUL), 

// SPACE=CTRK,(15,3)) 

“7 SYSIN DD xX 

A LABEL 


(First header label) 


(Last header label) 
A ADD LIST=ALL,OUTHDR=ROUTINE1],OUTTLR=ROUTINE2 


(First input data record) 


(Last input data record) 
et LABEL 
(First trailer label) 


(Last trailer label) — 


a ENDUP 
1% 





The control statements are discussed below: 


e SYSUT2 DD defines and allocates space for the output 
eens data set, called LABEL, which resides on a disk 
volume. 


e SYSIN DD defines the control data set, which follows in the 
input stream. (This control data set includes the 
See ere input data set and the user labels, which are on 
cards. 


e The first LABEL statement identifies the 80-byte card images 
in the input stream which will become user header labels. 
(They can be modified by the user's header~label processing 
routine specified on the ADD function statement. ) 


e The ADD function statement indicates that the data 
statements that follow are placed in the output data set. 
The newly created data set is listed in the message data 
set. User output header and output trailer routines are to 
pore control prior to the writing of header and trailer 

abels. 


e The second LABEL statement identifies the 80-byte card 
images in the input stream which will become user trailer 
labels. (They can be modified by the user's trailer-label 
processing routine specified on the ADD function statement. ) 





@ ENDUP signals the end of the control data set. 
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IEBUPDTE EXAMPLE 10 


TEBUPDTE EXAMPLE 11 


In this example, JEBUPDTE is used to copy a sequential data set 
from one DASD volume to another. User labels are processed by 
user exit routines. 


//LABELS JOB... 

// EXEC PGM=IEBUPDTE,PARM=CMOD, ,MMMMMM) 
47SYSPRINT DD SYSOQUT=A 

//SYSUT1 DD DSNAME=OLDMAST, DISP=OLD,LABEL=(,SUL), 
ff VOLUME=SER=111111,UNIT=disk 


S7SYSUT2 DD DSNAME=NEWMAST, DISP=CNEW,KEEP),LABEL=C,SUL), 
// UNIT=disk, VOLUME=SER=XB182, 

// SPACE=CTRK, (5,103) 

S7SYSIN DD DSNAME=INPUT, DISP=OLD,LABEL=C€,SUL), 

17 VOLUME=SER=222222,UNIT=disk 

1% 





The control statements are discussed below: 


e SYSUT1 DD defines the input sequential data set, called 
OLDMAST, which resides on a disk volume. 


e SYSUT2 DD defines the output sequential data set, called 
NEWMAST, which will reside ona disk volume. 


@ SYSIN DD defines the control data set. The contents of this 
disk-resident data set in this example are: 


REPRO LIST=ALL,INHDR=SSSSSS, INTLR=TTTTTT, 
ENDUP 


OUTHDR=XXXXXX, OUTTLR=YYYYYY 





é The REPRO function statement indicates that the existing 
input sequential data set is copied to the output data set. 
This output data set is listed on the message data set. The 
user's label processing routines are to be given control 
when header or trailer labels are encountered on either the 
input or the output data set. 


e ENDUP indicates the end of the control data set. 


In this example, a partitioned generation data set consisting of 
three members 1s used as source data in the creation of a new 
generation data set. IEBUPDTE is also used to adda fourth 
member to the three source members and to number the new member. 
da resultant data set is cataloged as a new generation data 
set. 
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//NEWGDS JOB... 
// EXEC PGM=IEBUPDTE,PARM=MOD 
//SYSPRINT DD SYSOUT=A 
//SYSUTI DD DSNAME=A.B.CC0),DISP=OLD 
SSSYSUT2? DD DSNAME=A.B.CC(+1),DISP=(€,CATLG),UNIT=disk, 
// VOLUME=SER=111111,SPACE=CTRK, (100,10,10)), 
// DCB=CRECFM=FB,LRECL=80, BLKSIZE=800) 
//SYSIN DD DATA 
, REPRO NAME=MEM1,LEVEL=00,SOURCE=0,LIST=ALL 

REPRO NAME=MEM2,LEVEL=00,S0URCE=0,LIST=ALL 

REPRO NAME=MEM3,LEVEL=00,SOURCE=0,LIST=ALL 

ADD NAME=MEM4, LEVEL=00,SOURCE=0,LIST=ALL 

NUMBER NEW1=10,INCR=5 


(data cards comprising MEM4) 


“4 ENDUP 
7% 


The control statements are discussed below: 


® SYSUT1 DD defines the latest generation data set, which is 
used as source data. 


e SYSUT2 DD defines the new generation data set, which is 
created from the source generation data set and from an 
additional member included as input and data. 


® SYSIN DD defines the control data set, which follows. in the 
input stream. 


° The REPRO function statements reproduce the named source 
members in the output generation data set. 


e The ADD function statement specifies that the data cards 
following the input stream be included as MEMG. 


® The NUMBER detail statement indicates that the new member is 
to have sequence numbers assigned in columns 73 through 80. 
The first record 1s assigned sequence number 10. The 
sequence number of each successive record is increased by 5. 


¢ ENDUP signals the end of input card data. 
This example assumes that a model data set control block CDSCB) 


exists on the catalog volume on which the generation data group 
index was built. 
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TEHATLAS PROGRAM 


IEHATLAS is a system utility used with direct access devices 
when a defective track is indicated by a data check or missing 
address marker condition. 


IEHATLAS can be used to locate and assign an alternate track to 
replace the defective track. Usable data records on the 
defective track are retrieved and transferred to the alternate 
track. A replacement for the bad record is created from data 
supplied by the user and placed on the alternate track. 


In a simple application, IEHATLAS is used as a separate job 
after an abnormal termination of a problem program. Input data 
necessary for execution of ITEHATLAS—the address of the 
defective track and replacement records-——may be obtained from 
the dump and from backup data. 


A more complex use of JEHATLAS may involve the preparation of a 
user's SYNAD routine, which reconstructs the necessary input 
data and invokes IEHATLAS dynamically. 


When IEHATLAS is invoked, it attempts to write on the defective 
track. If the subsequent read-back check indicates that the 
attempt was successful, a message is issued on the SYSOUT 
device. If not, a supervisor call routine (SVC 86) is entered 
automatically. 


The SVC routine locates and assigns an alternate track. (If a 
defective track already has an alternate and an error occurs on 
that alternate, the SVC routine assigns the next available 
ee alternate.) All of the valid data records on the defective 
( track are retrieved and transferred to the alternate track. The 
input record is written on the alternate track in the correct 
position to recover from the previous error. 


When a READ error occurs and a complete recovery is desired, see 

FD User's Guide and Reference for information on how to 
produce a listing of error data ona track. Using this data, 
the input data record for IEHATLAS can be created. The replace 
function can then be performed by executing IEHATLAS. 


IEHATLAS supports all current DASD, as listed under "DASD and 
Tape Device Support" on page 3, except the MSS staging packs and 
virtual volumes. 


INPU ND OUTPU 

ITEHATLAS uses the following input: 

® A description of the count field of the invalid record ona 
defective track, specifying the cylinder, track, record, 
key, and data length Cin hexadecimal notation). 

e An indication if WRITE special is needed. 

e A valid copy Cin hexadecimal notation) of the bad record. 

IEHATLAS produces as output: 

@ A message, issued on the SYSOUT device, containing the 
user's control information, the input record, and 
diagnostics. 

® The input record, written on either the original (defective) 


track or on an alternate track containing the usable data 
taken from the defective track. 
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RETURN CODES 
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The return parameter list (specifying a maximum of three - 
error record numbers in hexadecimal when an unrecoverable a 


error occurs). \ 


IEHATLAS returns a return code in register 15 when processing 


stops. 


Codes 


00 


04 


08 


12 
16 


20 


24 


28 


32 


36 


40 


48 


52 


56 
60 


(00 hex) 
(04) 
(08) 


(0C) 
(10) 


(14) 
(18) 


(1C) 


(20) 
(24) 


(28) 


(30) 
(34) 


(38) 
(3C) 


Figure 99. 





See Figure 99 


Meaning 


Successful completion; IEHATLAS has assigned the 
data to an alternate track 


The device does not have software-assignable 
alternate tracks. 


All the alternate tracks for the device have been 
assigned. 


The requested main storage space is not available. 


There was an I/0 error in the alternate track 

assignment after N attempts at assignment (where 

2 10% of the assignable alternate tracks for this 
evice). 


The error is a condition other than a data check or 
missing address marker. 


There is an error in the Format @ DSCB that 
prevents IEHATLAS from reading it. 


The user-specified error record is the Format 4 ; 
DSCB, which IEHATLAS cannot handle because the wee 
alternate track information is unreliable. 


ITEHATLAS cannot handle the error found in the count 
field of the last record on the track. 


There are errors in the home address or in record 
zero. 


IEHATLAS found one or more errors in record(s) and 
assigned an alternate track: 


l. There was an error on an end-of-file record, 


2. IEHATLAS encountered an error in the count 
field, 


3. There were errors in more than three count 
fields. 


IEHATLAS found no errors on the track specified and 
so assigned no alternate track. 


Because of an I/0 error, IEHATLAS cannot reexecute 
the user's channel program successfully. 


The system does not support track overflow. 


The track address provided does not belong to the 
indicated data set. 
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Utilities 


CONTROL 


IEHATLAS is controlled by job control statements and utility 
control statements. The job control statements are used to 
execute or invoke IEHATLAS and to define the data sets used and 
produced by IEHATLAS. 


A utility control statement is used to specify whether the bad 
record is part of the volume table of contents. It is also used 
to indicate whether or not the WRITE special CCW command is to 
be used for track overflow records. 


JOB CONTROL STATEMENTS 


Figure 100 shows the job control statements for IEHATLAS. 


Statement Use 
JOB Initiates the job. 
EXEC Specifies the program name (CPGM=IEHATLAS) or, if 


the job control statements reside in a procedure. 
library, the procedure name. 


SYSPRINT DD Defines a sequential data set that contains the 
output messages issued by IEHATLAS. 


SYSUT1 DD Defines the data set that contains the bad 
record. 
SYSIN DD Defines the control data set, which contains the 


utility control statement and a copy of the 
corrected version of the bad record. 


Figure 100. Job Control Statements for IEHATLAS 


The block size for the SYSPRINT data set must be a multiple of 
121. Any blocking factor can be specified. 


The block size for the SYSIN data set must be a multiple of 80. 
Any blocking factor can be specified. 


DISP=SHR must not be coded on the SYSUT1 DD statement. 
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UTILITY CONTROL STATEMENTS 


TRACK Statement 


VTOC Statement 


Figure 101 shows the utility control statements for IEHATLAS. 


Statement Use 

TRACK Specifies that an alternate track is to be 
assigned for a track that does not contain VTOC 
records. 

VToc Specifies that an alternate track is to be 


assigned for a track that contains VTOC records. 


Figure 101. Utility Control Statements for IEHATLAS 


Input data Cconsisting of the hexadecimal replacement record) 
begins in column 1 immediately following the utility control 
data. Input data may continue through column 80. As many cards 
as necessary may be used to contain the replacement record. All 
columns (1 through 80) are used on the additional cards. 


IEHATLAS is designed to replace an error record with a copy of 
that record. It cannot be used to replace a record with another 
of a different key and/or data length. 


An end-of-file record cannot be changed; therefore, input for 
key and/or data fields is ignored. 


Continuation requirements for the utility control statements are 
described in "Continuing Utility Control Statements"™ on page 5. 


The TRACK statement is used to identify a defective track that 
does not contain VTOC records (that is, the defective record is 
not included in the volume table of contents). 

The TRACK statement must not begin in column 1. 


The format of the TRACK statement is: 


TRACK=bbbbeccchhhhrrkkdddd[S] 


The VTOC statement is used to identify a defective track that 
contains VTOC records (that is, the defective record is included 
in the volume table of contents). 

The VTOC statement must not begin in column l. 


The format of the VTOC statement is: 
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( Parameters 


bbbb 


cccc 


dddd 


hhhh 


rrkk 


E LAS 


AMPLES 


Applicable 
Control 
Statements 


TRACK 
VTOC 
TRACK 
VTOC 


TRACK 
VTOC 


TRACK hbhhh 
VTOC | is the defective track number, in hexadecimal. 


TRACK rrkk 

VTOC is the record number and key length for the bad 
record, in hexadecimal. kk must not exceed the 
key length specified in the count field of the 
defective record. | 

TRACK 
is an optional byte of EBCDIC information that 
specifies that the WRITE special command is to 
be used (when the last record on the track 
overflows and must be completed elsewhere). 
















Description of Parameters 
bbbb 






This number must be all zeros. 






eccce 
is the hexadecimal number of the cylinder in 
which the defective track was found. 






dddd 
is the hexadecimal data length of the bad 
record. (When a WRITE special command is used, 
dddd is the length of the record segment.) dddd 
must not exceed the data length specified in the 
count field of the defective record. 





The following examples illustrate some of the uses of IEHATLAS. 
Figure 102 can be used as a quick-reference guide to IEHATLAS 
examples. The numbers in the "Example™ column point to examples 
that follow. 


Get Alternate Write special 1s included because l 

Track of a track overflow condition. 

Get Alternate Alternate track assigned for a bad 2 

Track end-of-file record. 
3 
Lae 










Get Alternate Alternate track assigned for a bad 
Track VTOC record. 

Get Alternate Replace defective record zero. 
Track 


Figure 102. IEHATLAS Example Directory 





Examples that use disk in place of actual device numbers must be 
changed before use. See "DASD and Tape Device Support"™ on 
page 3 for valid device number notation. 
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TEHATLAS EXAMPLE 1 


record. An alternate track on the specified unit and volume is 

assigned to replace the defective track. Valid records from the 

defective track are copied to the alternate track and the 

lie iad record (from SYSIN) is also written to the alternate 
rack. 


/7JQBATLAS JOB... 

“/STEP EXEC PGM=IEHATLAS 

Z/SYSPRINT DD SYSOUT=A 

//SYSUTI DD DSNAME=NEWSET,UNIT=disk, VOLUME=SER=333333, 


// DISP=OLD 
“/SYSIN DD xX 
TRACK=000000020004220200065 
F3F1IC2C2FOF00000 
1X 





The control statements are discussed below: 


e SYSPRINT DD defines the device to which the output messages 
| can be written Cin this case, the system printer). 


e SYSUT1 DD defines the data set (NEWSET) that contains the 
bad record. 


e SYSIN DD defines the control data set, which follows in the 
input stream. 


° TRACK specifies the cylinder and track number for the 
defective track, and the record number, key length, and data 


length of the bad record. In this example, the input record | 


is to be placed on cylinder 2 (cccc=0002), track 4 
Chhhh=0004), record 22 (rr=22); it has a key length of 2 
(kk=02) with a logical record (data) length of 6 
(dddd=0006). The WRITE special (S) character is used 
because there is a track overflow condition. 


ITEHATLAS EXAMPLE 2 


310 


In this example, an alternate track 1S assigned for a bad 
end-of-file record. 


//7SOBATLAS JOB... 

// STEP EXEC PGM=IEHATLAS 

/7SYSPRINT DD SYSOUT=A 

S/SVYSUT1L DD DSNAME=EOFSET,UNIT=disk, VOLUME=SER=333333, 


// DISP=OLD 

//SYSIN DD xX 
TRACK=00000001000003000000 

/* 





The control statements are discussed below: 


e SYSPRINT DD defines the device to which the output messages 
can be written Cin this case, the system printer). 


@ SYSUT1 DD defines the data set CEDFSET) that contains the 
bad record. 


° SYSIN DD defines the control data set, which follows in the 
input stream. 
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In this example, the data set defined by SYSUT1] contains the bad A 
oe 


‘ 


eo 





IEHATLAS EXAMPLE 3 


//SOBATLAS JOB 


@ TRACK defines an end-of-file record on cylinder 1, track 0, 
record 3. Input data other than the utility control 
statement 1s not required. 


Note that end-of-file is always indicated on DASD by the kk and 
dddd fields of a record's count field being zeros. 


In this example, an alternate track is assigned for a bad volume 
table of contents record. 


//STEP EXEC PGM=IEHATLAS 
//SYSPRINT DD SYSOUT=A 
//SYSUT1 DD UNIT=disk, VOLUME=SER=338000,DISP=OLD 


“/SYSIN DD XxX 


VTO0C=000000000005022C0060 





D6C2D1C05C3E34040404040404040404040404040404049040490404040404040404040404040404040 
GO0GO0G040FLF3F3F8FOFO0F00001440136000000010000000000000000000000000000000000000000 
000040008000000F000F00033333333333333333310DDDN00001D0000ANN00009A00000000000000 


0000000000000000000000000000000000000000 
SR 


IEHATLAS EXAMPLE 4 





The control statements are discussed below: 


® SYSPRINT DD defines the device to which the output messages 
can be written Cin this case, the system printer). 


e SYSUT1 DD defines the data set that contains the bad record. 


e SYSIN DD defines the control data set, which follows in the 
input stream. 


e VTOC defines the location of the bad VTOC record as track 5 
of cylinder 0. The record number is 2 with a key length of 
GG (Chexadecimal '2C'). Data length of the bad record is 96. 


The input record in this example is a typical hexadecimal record 
as defined by the VTOC statement. The input record contains 140 
bytes (data length = 96, key length = 44). 


In this example, the replacement record is record 0. 


Z/JOBATLAS JOB... 

“/ STEP EXEC PGM=IEHATLAS 

Z/SYSPRINT DD SYSOUT=A 

f/SYSUT1 DD DSNAME=NEWSET,UNIT=disk, VOLUME=SER=333333, 
// DISP=OLD 


S/SYSIN DD xX 
TRACK=00000002000400000008 
0000000000000000 


7% 
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The control statements are discussed below: 


e SYSPRINT DD defines the device to which the output messages 
can be written Cin this case, the system printer). 


e SYSUT1 DD defines the data set (CNEWSET) that contains the 
bad record. 


e SYSIN DD defines the control data set, which follows in the 
input stream. 


e TRACK specifies the cylinder and track number for the 
defective track, and the record number, key length, and data 
length of the bad record. In this example, the input record 
is to be placed on cylinder 2, track 4%, record 0; it has a 
key length of 0 with a data length of 8. 


e The input record in this example is a typical hexadecimal 


record as defined by a TRACK statement. The input record 
contains eight bytes (data length=8, key length=0). 
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JEHINITT PROGRAM 





IEHINITT is a system utility used to place IBM volume label sets 
written in EBCDIC (BCD for 7-track), or ISO/ANSI/FIPS volume 
label sets written in ISCII/ASCII CInternational Standard Code 
for Information Interchange/American Standard Code for 
Information Interchange) onto any number of magnetic tapes 
mounted on one or more tape units. Because IEHINITT can 
overwrite previously labeled tapes regardless of expiration date 
and security protection, ITEHINITT should be moved into an 
authorized password-protected private library and deleted from 
SYS].LINKLIB. 


Each volume label set created by the program contains: 


e A standard volume label with a user-specified serial number, 
owner identification, anda blank security byte. 


ISO/ANSI/ZFIPS labels may contain an access code other than 
an ISCII/ASCII space by using the ACCESS keyword. The 
format of the ISO/ANSI/FIPS label is constructed for Version 
3 of the label standard. 


A complete description of IBM standard volume labels and 
ISO/ANSI/FIPS Version 3 volume labels can be found in 


Magnetic Tape Labels and File Structure Administration. 

e An 80-byte dummy header label. For IBM standard labels, 
this record consists of HDR1 followed by zeros. For 
ISO/ANSI/ FIPS labels, this record consists of HDRI1 followed 
by zeros in the remaining positions, with the exception of 
~ Position 54, which will contain an ISCII/ASCII space 


— A 'l'* in the file section, file sequence, and generation 
number fields | : 


_ A leading space in the creation and expiration date 
fields; 


_ A system code of "'IJBMZLA', followed by 13 spaces, and 
which identifies the operating system creating the 
label. 

e A tapemark. 
When a labeled tape is subsequently used as a receiving volume: 


1. The tapemark created by IEHINITT is overwritten. 


2. The dummy HDR1] record created by IEHINITT is falled in with 
operating system data and device-dependent information. 


3. A HDR2 record, containing data set characteristics, 1s 
created. 


G. User header labels are written if exits to user label 
routines are provided. 


5. A tapemark is written. 


6. Data is placed on the receiving volume. 
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oo Note. for ISOZANSI‘FIPS tape labels Ss] 


There is no accessibility code checking done during IEHINITT gS 
processing, other than checking for uppercase A through Zin the — 
ACCESS Keyword. Therefore, it 1s possible to create a tape with «_.’ 
a volume access code that the receiving operating system will 

not recognize. In such a situation, the tape would have to be 


reinitialized to contain an acceptable access code. 


If an ISO/ANSI/FIPS volume is initialized only with IEHINITT, 
the labels produced do not frame an empty (Cnull) data set as 
required for interchange. In order to produce label symmetry 
described by the ISO/ANSI/FIPS standards, at least a minimal 
open/close sequence must be executed. For example, a volume 
initialized previously with IEWHINITT will result in label 
symmetry if the data set utility IEBGENER is used before the 
volume leaves the system for interchange, as follows: 


//STEPI EXEC PGM=IEBGENER 

4/SYSUT1 = DD DUMMY, DCB=CRECFM=F, BLKSIZE=80, LRECL=80) 
//SYSUT2 DD DSN=DUMMY, UNIT=Ctape,,DEFER),LABEL=(,AL), 
// DCB=CRECFM=F, BLKSIZE=80,LRECL=80) 
S/SYSIN DD DUMMY 


L—___-- Fnd of Note for ISO/ANSI/FIPS Tape Labels ———— 
Figure 103 shows an IBM standard label group after a volume is 


used to receive data. For a discussion of volume labels, see 


Data Administration Guide. 











Initial volume label 
HDR1 
HDR2 | 


User header labels 
Coptional up to 8) 


Data 


Figure 103. IBM Standard Label Group after Volume Receives Data 


PLACING A STANDARD LABEL SET ON MAGNETIC TAPE 


ITEHINITT can be used to write BCD labels on 7-track tape volumes 
and EBCDIC or ISCII/ASCII CISO/ANSIZFIPS format) labels on 
9-track tape volumes. Any number of 7-track and/or 9-track tape 
volumes can be labeled in a single execution of IEHINITT. 


Tape volumes are labeled in sequential order by specifying a 
serial number to be written on the first tape volume. The 
serial number is increased by 1 for each successive tape volume. 
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INPUT AND OUTPUT 


RETURN CODES 





If only one tape volume is to be labeled, the specified serial 
number can be either numeric or alphameric. If more than one 
volume is to be labeled, each serial number must be specified as 
six numeric characters. 

You can provide additional information, for example: 

® owner name 

e rewind or unload specifications 

e format CISO/“ANSI/FIPS) 

@ access code (A through Z if an "AL" tape is to be written) 
You must supply all tapes to be labeled, and must include with 


each job request explicit instructions to the operator about 
where each tape is to be mounted. 


ITEHINITT writes 7-track tape labels in even parity (translator 
on, converter off). 


Previously labeled tapes can be overwritten with new labels 
regardless of expiration date and security protection. 


Note that if a system MOUNT command has been issued for a tape 
before an IEHINITT job has started, that job will fail. 


If any errors are encountered while attempting to label a tape, 
the tape is left unlabeled. IEHINITT attempts to label any 
tapes remaining to be processed. 


For information on creating routines to write standard or 


nonstandard labels, see Magnetic Tape Labels and File Structure 
dministratio 


IEHINITT uses as input a control data set that contains the 
utility control statements. 


IEHINITT produces an output data set that contains: 


° Utility program identification 

° Initial volume label information for each successfully 
labeled tape volume 

e Contents of utility control statements 

e Any error messages 


IEHINITT returns a code in register 15 to indicate the results 
of program execution. The return codes and their meanings are 
listed in Figure 104 on page 316. 
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Codes 
00 (00 hex) 


04 (04) 





08 (08) 
12 (00) 


16 (10) 


Figure 104. 


CONTROL 


Meaning 


Successful completion. A message data set was 
created. 


Successful completion. No message data set was 
defined by the user. : 


ITEHINITT completed its operation, but error 
conditions were encountered during processing. 
A message data set was created. 


IEHINITT completed its operation, but error 
conditions were encountered during processing. 
No message data set was defined by the user. 


IEHINITT terminated operation because of error 
conditions encountered while attempting to read 
the control data set. A message data set was 
created if defined by the user. 


ITEHINITT Return Codes 


IEHINITT is controlled by job control statements and utility 
control statements. The job control statements are used to 
execute or invoke IEHINITT and to define data sets used and 
produced by IEHINITT. The utility control statement is used to 
specify applicable label information. 


JOB CONTROL STATEMENTS 


Figure 105 shows the job control statements for IEHINITT. 


Statement 
JOB 
EXEC 


SYSPRINT DD 


anyname DD 


SYSIN DD 





Figure 105. 
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Use 
Initiates the job. 


Specifies the program name CPGM=IEHINITT) or, if 
the job control statements reside in a procedure 
library, the procedure name. The EXEC statement 
can include additional PARM information; see "PARM 
Information on the EXEC Statement" on page 317. 


Defines a sequential output data set. 


Defines a tape unit to be used ina labeling 
operation; more than one tape unit can be 
identified. 


Defines the control data set. The control data set 
normally resides in the input stream; however, it 
can be defined as a member of a partitioned data 
si or as a sequential data set outside the input 
stream. 


IEHINITT Job Control Statements 


Utilities 




















PARM Information on the EXEC Statement 


The EXEC statement can include PARM information that specifies 
the number of lines to be printed between headings in the 
message data set, as follows: 


PARM=* LINECNT=nn' 





If PARM is omitted, 60 lines are printed between headings. 


If ITEHINITT is invoked, the line count option can be passed in a 
parameter list that is referred to by the optionaddr 
subparameter of the LINK or ATTACH macro instruction. In 
addition, a page count can be passed ina 6-byte parameter list 
that is referred to by the hdingaddr subparameter of the LINK or 
ATTACH macro instruction. For a discussion of linkage 
conventions, refer to "Invoking Utility Programs from a Problem 
Program™ on page 12. 


SYSPRINT DD Statement 


The SYSPRINT data set must have a logical record length of l12l 
bytes. It must consist of fixed-length records with an ISO/ANSI 
control character in the first byte of each record. Any 
blocking factor can be specified. 


anyname DD Statement 
The “anyname™ DD statement is entered: 
//anyname DD DCB=DEN=x, UNIT=Cxxxx,n, DEFER) 
The DEN parameter specifies the density at which the labels are 
Ae, written. The UNIT parameter specifies the device type, number 
( of units to be used for the labeling operation, and deferred 
mounting. See the publication JCL for more information on the 
DEN and UNIT parameters. 
The name "anyname™ must be identical to a name specified ina 
utility control statement to relate the specified unit(s) to the 
utility control statement. 
SYSIN DD Statement 
The SYSIN data set must have a logical record length of 80. Any 
blocking factor can be specified. 


UTILITY CONTROL STATEMENT 


IEHINITT uses the utility control statement INITT to provide 
control information for a labeling operation. 


Continuation requirements for utility control statements are 
described in "Continuing Utility Control Statements" on page 5. 
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INITT Statement 


The INITT statement provides control information for the 
IEHINITT program. 


Any number of INITT utility control statements can be included 
for a given execution of the. program. An identically named DD 
statement must exist for a utility control statement in the job 
step. 


Figure 106 shows a printout of a message data set including the 
INITT statement and initial volume label information. In this 
example, one INITT statement was used to place serial numbers 
001122 and 001123 on two SL tape volumes. VOL1001122 and 
VOL1001123 are interpreted as follows: 


e VOL1 indicates that an initial volume label was successfully 
written to a tape volume. 


e 001122 and 001123 are the serial numbers that were written 
onto the volumes. 


e A blank space following the serial number represents the 
Volume Security field, which is not used during 
OPEN“CLOSE/EOQV processing on an SL tape. 


No errors occurred during processing. 


SYSTEM SUPPORT UTILITIES TEWINITT 


72 
ALL INITT SER=001122,NUMBTAPE=2, OWNER='P.T.BROWN', X 
DISP=REWIND 
VOL1001122 P.T.BROWN 
VOL1001123 P.T. BROWN 


Figure 106. Printout of INITT Statement Specifications and 


Initial Volume Label Information 


The format of the INITT statement is: 


ddname INITT SER=xxxxxx 
» DISP={ REWIND | UNLOAD} 


[»,OWNER='ccccoceccececlecce]'] 


[,NUMBTAPE=p/1] 
[,LABTYPE=AL] 
[,ACCESS=c] 
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Applicable 


aa Control 
: Parameters Statements Description of Parameters 


ACCESS INITT ACCESS=c 
specifies the ISO/ANSI/FIPS volume accessibility 
code. Valid values for c are uppercase A 
through Z only. The default value is a blank 
character, indicating unlimited access to the 
volume. You cannot specify a blank character 
for the access code. 
The Volume Access installation exit routine in 
MVS must be modified to allow subsequent use of 
the volume if ACCESS is specified. For further 
information about volume accessibility and 
ISO/ANSIZFIPS installation exits, see Magnetic 
ape be d_ Fy u r dministration. 
ACCESS is invalid unless LABTYPE=AL has also 
been specified. 
DISP INITT DISP={REWIND | UNLOAD} 
specifies whether a tape is to be rewound or 
rewound and unloaded. These values can be 
coded: 
REWIND 
specifies that a tape is to be rewound (but 
not unloaded) after the label has been 
written. 
UNLOAD 
specifies that a tape is to be rewound and 
unloaded after the label has been written. 
This is the default. 
LABTYPE INITT LABTYPE=AL 
specifies that an ISCII/ASCII volume label 
written in ISO/ANSI/FIPS Version 3 format is to 
be created. Labels written in ISO/ANSI/FIPS 
cannot be put on a 7-track tape volume. 
Default: The tape is written in EBCDIC for 
9-track tape volumes and in BCD for 7-track tape 
volumes. 


ddname INITT ddname 
specifies the name that is identical to the 
ddname in the name field of the DD statement 
defining a tape unit(s). This name must begin 
in column 1. 

NUMBTAPE INITT NUMBTAPE=n]/1 
specifies the number of tapes to be labeled 
according to the specifications made in this 
control statement. The value n represents a 
number from 1 to 255. If more than one tape is 
specified, the volume serial number of the first 
tape must be numeric. 
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specifies the volume serial number of the first 
or only tape to be labeled. For IBM standard 
labeled (SL) tapes, the serial number cannot 
contain blanks, commas, apostrophes, equal 
Signs, or special characters other than periods 
or hyphens. ISO/ANSI/FIPS labeled tapes CAL) 
may contain any valid ISO/ANSI ‘'a' type 
character as described under the OWNER keyword. 
However, if any nonalphameric character 
Cincluding a period or a hyphen) is present, 
delimiting apostrophes must be included. 


You cannot use a blank as the first character in 


Applicable 
Control 
Parameters Statements Description of Parameters 
OWNER INITT OWNER="cccccceccecleeccl]' 

specifies the owner's name or similar 
identification. The information is specified as 
character constants, and can be up to 10 bytes 
in length for EBCDIC and BCD volume labels, or 
up to 14 bytes in length for volume labels 
written in ISCII/ASCII. The delimiting 
apostrophes must be present if blanks, commas, 
apostrophes, equal signs, or other special 
characters Cexcept periods or hyphens) are 
included. The set of valid ISO/ANSI 'a'" type 
characters for ISCII/ASCII tapes is as follows: 
upper case A-Z, numeric 0-9, and special 
characters !"4%R"( e+, —.735¢=>? 
If an apostrophe is included within the OWNER 
name field, it must be written as two 
consecutive apostrophes. 

INITT SER=xxxxxx 


320 
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a volume serial number. 


A specified serial number is increased by one 
for each additional tape to be labeled. (Serial 
number 999999 is increased to 000000.) When 
processing multiple tapes, the volume serial 
number must be all numeric. 
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in 
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The following examples illustrate some of the uses of JEHINITT. 
Figure 107 can be used as a quick-reference guide to JTEHINITT 
examples. The numbers in the “Example™ column refer to examples 
that follow. 


LABEL Three 9-track tapes are to be 
labeled. 
LABEL A 9-track tape is to be labeled. 


LABEL Two groups of 9-track tape volumes 
are to be labeled. 

LABEL 9-track tape volumes are to be 
labeled. Sequence numbers are to be 
incremented by 10. 


aa 
- | 
—_ 
LABEL Three 9-track tape volumes are to be 5 
labeled. An alphameric label is to 
be placed on a tape volume; numeric 
labels are placed on the remaining 
two tape volumes. 
a 












LABEL Two 9-track tape volumes are to be 
labeled. The first volume is labeled 
at a density of 6250 bpi; the second 
at a density of 1600 bpi. 


A 9-track tape volume is labeled in 
ISO/ANSI/ FIPS format with a nonblank 
access code. 








Figure 107. IEHINITT Example Directory 


Examples that use tape in place of actual device numbers must be 
changed before use. See "DASD and Tape Device Support™ on 
page 3 for valid device number notation. 


In this example, serial numbers 001234, 001235, and 001236 are 
placed on three tape volumes; the labels are written in EBCDIC 
at 800 bits per inch. Each volume labeled is mounted, when it 
is required, ona single 9-track tape unit. 


//LABEL1 JOB... 
7 EXEC PGM=IEHINITT 
77SYSPRINT DD SYSOUT=A 


//LABEL DD DCB=DEN=2,UNIT=(tape,1,DEFER) 
“7 35YSIN DD xX 

LABEL INITT SER=001234,NUMBTAPE=3 

7H 





The control statements are discussed below: 


e LABEL DD defines the tape unit used in the labeling 
operation. 


e SYSIN DD defines the control data set, which follows in the 
input stream. 
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e LABEL INITT Spacieies: the number of tapes to be labeled See 
beginning with 001234. 


IEHINITT EXAMPLE 2 | | NO 


In this example, serial number 001001 is placed on one 
ISO/ANSI/FIPS tape volume; the label is written at 800 bits per 
inch. The volume labeled is mounted, when it is required, ona 
9-track tape unit. | 


//LABEL2 JOB 
Sf EXEC PGM=IEHINITT 
/7SYSPRINT DD SYSOUT=A 


//ASCIILAB DD DCB=DEN=2,UNIT=(Ctape,1, DEFER) 

S/SYSIN DD xX 

ASCIILAB INITT SER=001001,O0WNER="SAM A. BROWN',LABTYPE=AL 
1% 





The control statements are discussed below: 


e ASCIILAB DD defines the tape volume to be used in the 
labeling operation. 


® SYSIN DD defines the control data set; which follows in the 
input stream. . 


e ASCIILAB INITT specifies the serial number, owner ID and 
label type for the volume. 


TEHINITT EXAMPLE 3 


In this example, two groups of serial numbers (001234, 001235, 
001236, and 001334, 001335, 001336) are placed on six tape. 
volumes. The labels are written in EBCDIC at 800 bits per inch. 
Each volume labeled is mounted, when it is required, ona single 
9-track tape unit. | ) 


//LABELS JOB 

17 EXEC PGM=IEHINITT 

/7SYSPRINT DD SYSOUT=A 

/7LABEL DD DCB=DEN=2,UNIT=(Ctape,1, DEFER) 
X 


//3YSIN DD 
LABEL INITT SER=001234,NUMBTAPE=3 


LABEL INITT SER=001334,NUMBTAPE=3 
1% 





The control statements are discussed below: 


e LABEL DD defines the tape unit to be used in the labeling 
operation. 


® SYSIN DD defines the control data set, which follows in the 
input stream. 


6 LABEL INITT defines the two groups of serial numbers to be 
put on six tape volumes. 
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IEHINITT EXAMPLE 4 


In this example, serial numbers 0012534, 


001274, 


mounted, 


etc., 


are placed on eight tape volumes. 
written in EBCDIC at 800 bits per inch. 
when it is required, 


001244, 001254, 001264, 
The labels are 
Each volume labeled is 


on one of four 9-track tape units. 


//LABELG JOB... <2 

1/ EXEC PGM=IEHINITT 
//SYSPRINT DD SYSOUT=A 
“/LABEL DD DCB=DEN=2,UNIT=(tape, 4, DEFER) 
“/SYSIN DD xX 

LABEL INITT SER=001234 
LABEL INITT SER=001244 
LABEL INITT SER=001254 
LABEL INITT SER=001264 
LABEL INITT SER=001274 
LABEL INITT SER=001284 
LABEL INITT SER=001294 
LABEL INITT SER=001304 
/X% 


The control statements are discussed below: 


e LABEL DD defines the tape unit used in the labeling 
operation. 


® SYSIN DD defines the control data set, 
input stream. : 


which follows in the 


The LABEL INITT statements define the tapes to be labeled by 
volume serial number. 


ITEHINITT EXAMPLE 5 


In this example, serial number TAPE] 18 placed on a tape volume, 
and serial numbers 001234 and 001235 are placed on two tape 
volumes. The labels are written in EBCDIC at 800 and 1600 bits 
per inch, respectively. 


//LABEL5 JOB... 

// EXEC PGM=IEHINITT 

7/SYSPRINT DD SYSOUT=A 

//LABELL DD DCB=DEN=2,UNIT=(tape,1, DEFER) 
//LABEL2 DD 
“/SYSIN DD xX 
LABEL1 INITT 
LABEL2 INITT 

/*® 


DCB=DEN=3,UNIT=(tape,1, DEFER) 


SER=TAPE1 
SER=001234,NUMBTAPE=2 





The control statements are discussed below: 


e LABEL1 DD and LABEL2 DD define two tape volumes to be used 
in the labeling operation. 


e SYSIN DD defines the control data set, 
input stream. 


which follows in the 


6 LABEL1 INITT places the serial number TAPE] on the tape 
volume defined in LABEL1 DD. LABEL2 INITT places the Serial 
ca and 001235 on the tape volume defined in 
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IEHINITT EXAMPLE 6 


ITEHINITT EXAMPLE 7 


In this example, the serial number 006250 is written in EBCDIC 
on a tape volume at a density of 6250 bpi, and the serial number 
001600 is written in EBCDIC on a second volume at a density of 
1600 bpi. | 


//LABEL6 JOB... 

// EXEC PGM=IEHINITT 

/7SYSPRINT DD SYSOUT=A 

//DDFIRST DD DCB=DEN=4,UNIT=(tape,1, DEFER) 
//DDSECOND DD DCB=DEN=3,UNIT=(tape,1, DEFER) 


S/SYSIN DD xX 

DDFIRST INITT SER=006250 
DDSECOND INITT SER=001600 
7% 





The control statements are discussed below: 
e DDFIRST DD defines the first tape volume to be used. 
e DDSECOND DD defines the second tape volume to be used. 


e SYSIN DD defines the control data set, which follows in the 
input stream. 


e DDFIRST INITT writes the serial number 006250 on the volume 
defined in DDFIRST DD. DDSECOND INITT writes the serial 
number 001600 on the volume defined in DDSECOND DD. 


In this example, an ISO/ANSI/FIPS CAL) labeled tape is created 
aa a nonblank access code. The volume Serial number is 
APEO]. 


// LABEL? JOB... 

//7STEPOI EXEC PGM=IEHINITT 

//SYSPRINT DD SYSOUT=A 

/7LABEL DD UNIT=(tape,1, DEFER), DCB=DEN=4 


/7SYSIN 


DD X 
LABEL INITT SER=TAPEO1, OWNER=TAPOWNER, LABTYPE=AL,ACCESS=A 
1X 





The control statements are discussed below. 
@ LABEL DD defines the device on which the tape is mounted. 


e SYSIN DD defines the control data set, which follows in the 
input stream. 


® The INITT statement creates an ISO/ANSI/FIPS label for the 
tape with volume serial number TAPEOL, owned by TAPOWNER. 
The ACCESS code is specified as "A", and the MVS operating 
system that receives this volume must be able to recognize 
the "A™ in order for the volume to be accepted. 
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EHLIS ROGRA 


IEHLIST is a system utility used to list entries in an OS CVOL, 
entries in the directory of one or more partitioned data sets, 
or entries in an indexed or nonindexed volume table of contents. 
Any number of listings can be requested ina single execution of 
the program. 


LISTING OS CVOL ENTRIES 


IEHLIST lists all OS CVOL entries that are part of the structure 
of a fully qualified, data set name. Figure 108 shows an index 
structure for which IEHLIST lists fully qualified names A.B.D.NW, 
A.B.D.X, A.B.E.Y, and A.B.E.Z. Because A.C.F does not represent 
a cataloged data set (that is, the lowest level of qualification 
has been deleted), it is not a fully qualified name, and it is 
not listed. 











Figure 108. Index Structure——Listed by IEHLIST 


IEHLIST will list only OS CVOLs CSYSCTLG data sets). To list 
integrated catalog facility or VSAM catalogs, use access method 
services. For more information, see Access Method Services 


Re ference. 


LISTING A PARTITIONED DATA SET DIRECTORY 


IEHLIST can list up to ten partitioned data set directories at a 
time. A partitioned directory is composed of variable-length 
records blocked into 256-byte blocks. Each directory block can 
contain one or more entries that reflect member Cand/or alias) 
names and other attributes of the partitioned members. IEHLIST 
can list these blocks in edited and unedited format. 
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Figure 109 shows a directory block as it exists in storage. 







Figure 109. Sample Directory Block 





Edited Format 


Optionally, IEHLIST provides the following information, 


cc 
ce 





NU 


obtained from the applicable partitioned data set directory, 


when an edited format is requested: 


Member name 

Entry point 

Relative address of start of member 
Relative address of start of text 
Contiguous virtual storage requirements 
Length of first block of text 
Origin of first block of text 
System status indicators 

Linkage editor attributes 

APF authorization required 

Other information 


Figure 110 shows an edited entry for a partitioned member 
CIEANUCO1). The entry is shown as it is listed by the IEHLIST 


program. 





OTHER INFORMATION INDEX 


SCATTER FORMAT SCTR=SCATTER/TRANSLATION TABLE TTR IN HEX, LEN OF SCTR LIST IN DEC, LEN OF TRANS TABLE IN DEC, 


ESDID OF FIRST TEXT RCD IN DEC, ESDID OF CSECT CONTAINING ENTRY POINT IN DEC 
OVERLAY FORMAT ONLY=NOTE LIST RCD TTR IN HEX, NUMBER OF ENTRIES IN NOTE LIST RCD IN DEC 
ALIAS NAMES ALIAS MEMBER NAMES WILL BE FOLLOWED BY AN ASTERISK IN THE PDS FORMAT LISTING 
ATTRIBUTE INDEX 


BIT ON OFF BLT ON OFF BIT ON OFF BIT ON OFF 

0 RENT NOT RENT 4 OL NOT OL 8 NOT DC DC 12 NOT EDIT EDIT 

1 REUS NOT REUS 5 SCTR BLOCK 9 ZERO ORG NOT ZERO 13 SYMS NO SYMS 

2 ONLY NOT ONLY 6 EXEC NOT EXEC 10 EP ZERO NOT ZERO 14 F LEVEL E LEVEL 

3 TEST NOT TEST ay 1 TXT MULTI RCD oh NO RLD RLD 15 REFR NOT REFR 
MEMBER ENTRY ATTR REL ADDR-HEX CONTIG LEN 1ST ORG 1ST SST VS AUTH OTHER 
NAME PT-HEX HEX BEGIN 1ST Txt STOR-DEC TXT-DEC TXT-HEX INFO ATTR REQ INFORMATION 
ITEANUCO1 000000 06E2 000004 00020F 000166248 0927 ABSENT 880000 NO SCTR=000000, 


OF THE 00002 DIRECTORY BLOCKS ALLOCATED TO THIS PDS, 00001 ARE(IS) COMPLETELY UNUSED 


Figure 110. Edited Partitioned Directory Entry 





00484,01084,32,32 


Before printing the directory entries on the first page, an 
index 1S printed explaining the asterisk (%), if any, following 
a member name, the attributes (fields 3 and 10), and other 
information (field 12). Under OTHER INFORMATION INDEX, scatter 
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which is 


: 
— 

Soe 
, co My 








and overlay format data is described positionally as it appears 
in the listing; under the ATTRIBUTE INDEX, the meaning of each 
attribute bit is explained. 


Each directory entry occupies one printed line, except when the 
member name 1S an alias and the main member name and associated 
entry point appear in the user data field. When this occurs, 
two lines are used and every alias is followed by an asterisk. 
If the main member is renamed, the old member name will still be 
in the alias directory entry and consequently printed on the 
second line. 


The FORMAT option of the LISTPDS statement applies only to a 
partitioned data set whose members have been created by the 
linkage editor (that is, the directory entries are at least 34 
bytes long). If a directory entry is less than 34 bytes, a 
message 1S issued and the entry 1s printed in unedited format; 
if the entry is longer than 34 bytes, it is assumed that it is 
created by the linkage editor. 


Unedited (Dump) Format 





You may choose the unedited format. If this is the case, 
IEHLIST lists each member separately. 


Figure 111 shows how the information in Figure 109 on page 326 
is listed. 





Note: <A listing organized as shown in Figure 111 can also be 
obtained by using IEBPTPCH (see "IEBPTPCH Program™ on page 246). 


MEMB A TTR USER DATA 
MEMB B TTR USER DATA 
MEMB C TTR USER DATA 
MEMB n TTR USER DATA 


Figure 111. Sample Partitioned Directory Listing 


To correctly interpret user data information, you must Know the 
format of the partitioned entry. The formats of directory 
entries are discussed in Debugging Handbook. 


LISTING A VOLUME TABLE OF CONTENTS 


IEHLIST can be used to list, partially or completely, entries in 
a specified volume table of contents (VTOC), whether indexed or 
nonindexed. The program lists the contents of selected data set 
control blocks CDSCBs) in edited or unedited form. 


For more information on indexed VTOCs, including a description 


of the VPSM, VIXM and VMDS, see System—Data Administration. 


IEHLIST Program 327 








Edited Format 
Two edited formats are available. 


FIRST EDITED FORMAT: The first edited format is a comprehensive 
listing of the DSCBs in the VTOC. It provides the status and 
attributes of the volume, and describes in depth the data sets 
residing on the volume. This listing includes: 


ieee 


Logical record length and block size 

Initial and secondary allocations 

Upper and lower limits of extents 

Alternate track information 

Available space information, including totals of unallocated 

a Maa unallocated tracks, and unallocated (Format 0) 
SCBs | 

e Option codes Cprinted as two hexadecimal digits) 

® Record formats 


A VTOC consists of as many as seven types of DSCBs that contain 
information about the data sets residing on the volume: 


e Identifier DSCB——Format l 

e Index DSCB-——-Format 2 

e Extension DSCB-——Format 3 

e VTOC DSCB-——Format 4 

e Free Space DSCB—Format 5 

e Shared Extent DSCB-——Format 6 
° Free VTOC DSCB——Format 0 


The first DSCB in a VTOC Cand on your listing) is always a VTOC | 
(Format 4) DSCB. It defines the scope of the VTOC itself; that ~ / 
is, it contains information about the VTOC and the volume rather 
than the data sets referenced by the VTOC. 


The DSCB is followed by the Free Space (Format 5) DSCB, which 
describes the space available on the volume for allocation to 
other data sets. More than one Format 5 DSCB may be required to 
describe the available space on a volume because each Format 5 
DSCB describes up to 26 extents. 


The Format 4 and Format 5 DSCBs are followed, in any order, by 
Format 1, 2, 3, or 6 DSCBs. 


Each Identifier (Format 1) DSCB contains information about a 
particular data set or VSAM data space residing on the volume. 
This type of DSCB describes the characteristics and up to three 
extents of the data set. 


For data sets having indexed sequential organization, additional 
characteristics are specified in an Index (Format 2) DSCB 
pointed to by the Identifier (Format 1) DSCB. 


Additional extents are described in an Extension (Format 3) DSCB 
pointed to by the Identifier (Format 1) DSCB or in the Index 
(Format 2) DSCB for an ISAM data set. 


A Shared Extent (Format 6) DSCB is used for shared-cylinder 
allocation. It describes the extent of space Cone or more : 
contiguous cylinders) that is being shared by two or more data 
sets. The Shared Extent (Format 6) DSCB is pointed to by the 
VTOC CFormat 4) DSCB. Subsequent Format 6 DSCBs are pointed to 
by the previous Format 6 DSCB. Though shared extent data sets 
cannot be created by MVS/XA, they are supported if previously 


. 
created. 


hase 


A Free VTOC Record (Format 0) DSCB, which indicates space 
available for another DSCB, is not listed by IEHLIST. They are 


328 MVS/XA Data Administration: Utilities 











140-byte records, consisting of binary zeros, that are 
overwritten with Format 1, 2, or 3 DSCBs when a new data set 1s 
allocated, with Format 5 DSCBs when space 1s released, or with 
Format 3 DSCBs when a Format 1 or Format 2 must be extended. 


Indexed VTOCsS: For indexed VTOCs, there are two types of 
formatted listings. These types are specified using the 
INDEXDSN parameter. 


If INDEXDSN is omitted, the listing contains: 


A statement of the number of levels in the index, if 
enabled. 


A formatted Format 4 DSCB. 


Formatted data set entries in alphameric order (Format 1 
DSCB physical-sequential order if the index is disabled) 


Formatted VPSM freespace information. 


Totals of unallocated cylinders, unallocated tracks, 
unallocated (Format 0) DSCBs, and unallocated VIRs 


If INDEXDSN=name is specified, the listing contains, in addition 
to the items above: 


A formatted VPSM, VMDS, and VIXM. 


Allocated VIERs, formatted and listed by level and key 
sequence within level Cin physical-sequential order if the 
index is disabled). 


If the VTOC index is disabled, a statement is included to 
this effect. 


Note: For a sample of the first edited format illustrating how 
each DSCB will appear in the listing, see Appendix D, "IEHLIST 
VTOC Listing™ on page 427 


SECOND EDITED FORMAT: The second edited format 1s an | 
abbreviated description of the data sets. It is provided by 
default when no format 1s specifically requested. It provides 
the following information: 


Data set name 

Creation date Cyyyy.ddd) 
Expiration date Cyyyy.ddd) 
Password indication 
Organization of the data set 
Extent (s) 

Volume serial number 


The last line in the listing indicates how much space remains in 
the VTOC. 


For nonindexed VTOCs, data set entries are listed in 
physical-sequential order. Totals of unallocated cylinders, 
unallocated tracks, and unallocated (Format 0) DSCBs are also 
listed. 


For indexed VTOCs, this listing contains: 


A statement of the number of levels in the index. 
Data set entries listed in alphameric order. 


Totals of unallocated cylinders, unallocated tracks, 
unallocated (Format 0) DSCBs, and unallocated VIRs. 
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Unedited (Dump) Format 


fe 
This option produces a complete hexadecimal listing of the DSCBs ? ” 
in the VTOC. The listing is in an unedited duinp form, requiring «_” 
you to know the various formats of applicable DSCBs. The VTOC 
overlay for JEHLIST listings of VTOCS in dump format (form 
number GX24-5100) is useful in identifying the fields of the 
DSCBs. 


For nonindexed VTOCs, this listing contains: 
@ DSCBs dumped, in physical-sequential order. 


e Totals of unallocated cylinders, unallocated tracks, and 
unallocated (Format 0) DSCBs. 


For indexed VTOCs there are two types of dump listings. These 
types are specified using the INDEXDSN parameter. 


If INDEXDSN is omitted, the listing contains: 


e DSCBs dumped in physical-sequential order Cone token Format 
5 DSCB is identified). 


@ A dump of the VPSM. 


e Totals of unallocated cylinders, unallocated tracks, 
unallocated (Format 0) DSCBs, and unallocated VIRs. 


If INDEXDSN=name 18 specified, the listing contains, in addition 
to the items above: 


e Dumps of the VIXM and the VMDS. 


e A dump of all allocated VIERs dumped in hierarchic order. 
All VIERs at the highest level are dumped, starting with the ~ 
VIER with the lowest high Key; next, all VIERs at the next. y 
lower level are dumped, starting with the VIER with the ne 7 
lowest high key. The listing continues in this manner until 
all VIERs at level 1 are dumped 


If the VTOC index is disabled, both allocated and 
unallocated VIERsS are dumped in physical-~sequential order. 


e If the VTOC index is disabled, a statement is included to 
this effect. 


For a discussion of the various formats that data set control 


blocks can assume, see Debuqging Handbook. 


INPUT AND OUTPUT 
IEHLIST uses the following input: 


e One or more source data sets that contain the data to be 
listed. The input data set(s) can be: 
- A VTOC, 


—_ A partitioned data set, 
_ An OS CVOL CSYSCTLG). 


® A control data set, that contains utility control statements 
that are used to control the functions of IEHLIST. 


IEHLIST produces as output a message data set that contains the 
result of the IEHLIST operations. The message data set includes 
the listed data and any error messages. 
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RETURN CODES 


= IEHLIST returns a code in register 15 to indicate the results of 
a program execution. The return codes and their meanings are 
listed in Figure 112. 


Codes Meaning 


00 (00 hex) Successful completion. 


08 (08) An error condition caused a specified request to be 
lgnored. Processing continues. 
12 (0C) A permanent input/output error occurred. The job 


1s terminated. 





16 (10) An unrecoverable error occurred while reading the 
data set. The job is terminated. 


Figure 112. IEHLIST Return Codes 








CONTROL 
IEHLIST is controlled by job control statements and utility 
control statements. The job control statements are used to 
execute or invoke IEHLIST and to define the data sets used and 
produced by IEHLIST. 
= Utility control statements are used to control the functions of 
( tera eae and to define those data sets or volumes to be 
| modified. 


JOB CONTROL STATEMENTS 


Figure 113 on page 332 shows the job control statements for 
IEHLIST. 
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PARM Information on 





Statement Use 
JOB Initiates the job. 


EXEC Specifies the program name (PGM=IEHLIST) or, if 
the job control statements reside ina procedure 
library, the procedure name. Additional PARM 
information can be specified to control the 
number of lines printed per page. See "PARM 
Information on the EXEC Statement™ on page 332. 


SYSPRINT DD Defines a sequential message data set. 
anynamel DD Defines a permanently mounted volume. 


anyname2 DD Defines a mountable device type. This can be 
specified more than once as long as each 
"Nanyname™ is unique. 


SYSIN DD Defines the control data set. The control data 
set normally follows the job control language in 
the input stream; however, 1%t can be defined as 
an unblocked sequential data set or member of a 
procedure library. 


Figure 113. IEHLIST Job Control Statements 


With the exception of the SYSIN and SYSPRINT DD statements, all 
DD statements in this table are used as device allocation 
statements, rather than as true data definition statements. The 
ae number of these allocated devices cannot exceed 256 per 
job step. 


Concatenated DD statements are allowed only for SYSIN. 


Because IEHLIST modifies the internal control blocks created by 
device allocation DD statements, IEHLIST job control statements 
must not include the DSNAME parameter. (CA11 data sets are 

defined explicitly or implicitly by utility control statements. ) 


IEHLIST cannot support empty space calculations for OS CVOL data 
sets allocated in blocks when the block sizes are approximately 
the same or larger than the track size. The empty block 
calculation gives only approximate indications of available 
space. When IEHLIST cannot supply an approximate number, the 
"Unable to Calculate" message is issued. 


ITEHLIST specifications do not allow for protection of the object 
being listed. If another program updates a block of the data 
set just prior to IEHLIST reading the data set, a message 
CITEHLO5I or JEH108I) may be issued and the output produced by 
IEHLIST may be incorrect. If this happens, rerun the job. 


the EXEC Statement 
Additional information can be specified in the PARM parameter of 
the EXEC statement to control the number of lines printed per 


page. The PARM parameter can be coded 


PARM=' LINECNT=xx 


332 MVS/XA Data Administration: Utilities 




















The LINECNT parameter specifies the number of lines, xx, to be 
printed per page; xx 1s a decimal number from 01 through 99. If 
LINECNT 1s not specified, 58 lines are printed per page. The 
PARM field cannot contain embedded blanks, zeros, or any other 
PARM Keywords if LINECNT is specified. 


SYSPRINT DD Statement 


The block size for SYSPRINT must be a multiple of 121. Any 
blocking factor can be specified for this block Size. 


anynamel DD Statement 


An "anynamel™ DD statement must be included for each permanently 
mounted volume referred to in the job step. (CThe system 
residence volume is considered to be a permanently mounted 
volume. ) 


The "anynamel™ DD statement can be entered: 

//anynamel DD UNIT=xxxx, VOLUME=SER=xxxxxx, DISP=OLD 
The UNIT and VOLUME=SER parameters define the device type and 
volume serial number. The DISP=OLD specification prevents the 


inadvertent deletion of the data set. (This statement has been 
arbitrarily assigned the ddname DDI in the IEHLIST examples.) 


anyname2 DD Statement 


SYSIN DD Statement 


An “"anyname2" DD statement must be included for each mountable 
device to be used in the job step. 


When deferred mounting is required, the “anyname2" DD statement 
can be entered: 


//anyname2z DD UNIT=(Cxxxx,, DEFER), VOLUME=C(PRIVATE,...),DISP=OLD 


(This statement is arbitrarily assigned the ddname DD2 in the 
IEHLIST examples.) 


When IEHLIST is dynamically invoked in a job step by another 
program, the DD statements defining mountable devices for 
IEHLIST must precede DD statements required by the other 
program. 


Unit affinity cannot be used on DD statements defining mountable 
devices. 


For information on defining mountable devices, see 
Appendix B, "DD Statements for Defining Mountable Devices" on 
page 423. 


The block size for SYSIN must be a multiple of 80. Any blocking 
factor can be specified for this block size. 


UTILITY CONTROL STATEMENTS 


Figure 114 on page 334 shows the utility control statements for 
TEHLIST. 
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Statement Use —_ 
\~ 
LISTCTLG Requests a listing of all or part of an OS CVOL sae 
CSYSCTLG). 
LISTPDS Requests a directory listing of one or more 


partitioned data sets. 


LISTVTOC Requests a listing of all or part of a volume 
table of contents. 


Figure 114. IEHLIST Utility Control Statements 


Continuation requirements for utility control statements are 
described in "Continuing Utility Control Statements” on page 5. 


LISTCTLG Statement 


The LISTCTLG statement is used to request a listing of either 

the entire OS CVOL or a specified portion of the OS CVOL 
CSYSCTLG data set). The listing includes the fully qualified 

name of each applicable cataloged data set and the serial number 

| Nabe volume on which it resides. Empty index levels are not 
usted. 


The format of the LISTCTLG statement is: 


[label] LISTCTLG| [VOL=device=seriall 
[,NODE=namel _— 





LISTPDS Statement 


The LISTPDS statement is used to request a directory listing of 
one or more partitioned data sets that reside on the same 
volume. 


Before printing the directory entries on the first page, an 
index is printed explaining the attributes (fields 3 and 10) and 
other information (field 12). OTHER INFORMATION INDEX explains 
scatter and overlay format data as it appears in the listing; 
ATTRIBUTE INDEX explains each attribute bit. 


The FORMAT option of the LISTPDS statement may be used only ona 
partitioned data set whose members have been created by the 
linkage editor. Members that have not been created by the 
linkage editor cause their directory entries to be listed in 
unedited (DUMP) format. 


The format of the LISTPDS statement is: 
[label] LISTPDS DSNAME=(namel,namel... ) 
[,VOL=device=serial] 
[» DUMP ]|FORMAT] 
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LISTVTOC Statement 


oo The LISTVTOC statement is used to request a partial or complete 
4 listing of the entries ina specified volume table of contents. 


If you are using IEHLIST to list both the VTOC and the index 
data set of an indexed VTOC, refer to "Listing a Volume Table of 
Contents" on page 327. 


The format of the LISTVTOC statement is: 


Clabel] LISTVTOC CDUMP | FORMAT] 
[, INDEXDSN=SYS1.VTOCIX. xxxx] 


[,DATE={dddyy | dddyyyy}] 
[,VOL=device=serial] 


[,DSNAME=(namel,namel...)] 









Applicable 
Control 
Statements 


DATE LISTVTOC 






Parameters Description of Parameters 
DATE=dddyy 
specifies that each entry that expires before 
this date is to be flagged with an asterisk (xX) 
after the entry name in the listing. This 
parameter applies only to the abbreviated edited 
format. The date is represented by ddd, the day 
of the year, and yy, the last two digits of the 
year. 


































DATE=dddyyvy 
specifies that each entry that expires before 
this date is to be flagged with an asterisk (X) 
after the entry name in the listing. This 
parameter applies only to the abbreviated edited 
format. The date is represented by ddd, the day 
of the year, and yyyy, the year from 1900 to 
2155. If the specified yyvy value is outside 
these bounds, message IEH1O3I CINVALID CONTROL 
STATEMENT) will be issued. 


Default: No asterisks appear in the listing. 





DSNAME LISTPDS DSNAME=(namel,namel... J) 
specifies the fully qualified names of the 
partitioned data sets whose directories are to 
be listed. A maximum of 10 names is allowed. 
If the list consists of only a single name, the 


parentheses can be omitted. 








LISTVTOC DSNAME=(namel[,namel...) 
specifies the fully qualified names of the data 
sets whose entries are to be listed. A maximum 
of 10 names is allowed. If the list consists of 
only a single name, the parentheses can be 
omitted. 
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Parameters 


DUMP 


FORMAT 


INDEXDSN LISTVTOC 
NODE LISTCTLG 
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336 


Applicable 
Control 
Statements 


LISTPDS 
LISTVTOC 









































LISTPDS 









LISTVTOC 
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FORMAT 
specifies that the listing is to be edited for 


FORMAT 
specifies that a comprehensive edited listing is 


NODE=name 
specifies a qualified name. All data set 
entries whose names are qualified by this name 






Description of Parameters 


hexadeci 


Default: 
abbrevia 
LISTVTOC 
used. 


each dir 


The FORM 
be used 
members 
Members 
linkage 
be liste 


to be ge 


Default: 
abbrevia 
LISTVTOC 
used. 


INDEXDSN=SYS1.VTOCIX. xxxx 
specifies that index information is to be 


listed, 


third level qualifier. DUMP or FORMAT must be 


specifie 
informat 
a Volume 


are list 
integrat 


catalog as: SYSTCTLG.VYYYYYY, where YYYYYY 1s 
the serial number of the OS CVOL. For details, 
see Catalog Administration Guide. 


Default: 


LISTCTLG VOL=device=serial 
LISTPDS specifies the device type and volume serial 
LISTVTOC number of the volume on which the OS CVOL, PDS 


director 


For LIST 
on the s 
paramete 


Default: 
reside o 


Utilities 


specifies that the listing is to be in unedited, 



















mal form. 


If both DUMP and FORMAT are omitted, an 
ted edited format is generated for 
. For LISTPDS, DUMP is the default 


ectory entry. 


AT option of the LISTPDS statement may 
only ona partitioned data set whose 
have been created by the linkage editor. 
that have not been created by the 
editor cause their directory entries to 
din unedited (DUMP) format. 


nerated. 


If both FORMAT and DUMP are omitted, an 
ted edited format is generated for 
. For LISTPDS, DUMP is the default 


in addition to the VTOC. »xxxx 1S any 


dif INDEXDSN is specified. For more 
10n on indexed VTOCs, refer to "Listing 
Table of Contents" on page 32/7. 


ed. The OS CVOL must be defined in the 
ed catalog facility or VSAM master 







All data set entries are listed. 


y, or VTOC resides. 


PDS, if the partitioned data set is not 
ystem residence volume, the VOL 
ris required. 


For LISTCTLG, the OS CVOL is assumed to 
n the system residence volume. 
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TEHLIST EXAMPLES 


TEHLIST EXAMPLE 1 





The following examples illustrate some of the uses of IEHLIST. 
Figure 115 can be used as a quick-reference guide to IEHLIST 
examples. The numbers in the "Example" column refer to examples 
that follow. 


LISTCTLG Disk and Source OS CVOL is to 
system output be listed on the 
device system output device. 


1 
LISTCTLG Disk system Three OS CVOLS and 2 
residence part of a fourth are 
device and to be listed on the 
system output system output device. 
device 

LISTPDS Disk and Three partitioned 3 
system output directories are to be 
device listed on the system 

output device. 

LISTVTOC Disk and Volume table of G 
system output contents is to be 
device listed in edited form; 

selected data set 
control blocks are 
listed in unedited 
form. 
Figure 115. IEHLIST Example Directory 






Examples that use disk in place of actual device numbers must be 
changed before use. See "DASD and Tape Device Support" on 
page 3 for valid device number notation. 


In this example, an OS CVOL named SYSCTLG, residing ona disk 
volume (111111), is listed. 


The example follows: 


//CATLIST JOB... | 
7 EXEC PGM=IEHLIST 
“/SYSPRINT DD SYSOUT=A 


//DD2 DD UNIT=disk, VOLUME=SER=111111,DISP=OLD 
S/SYSIN DD xX 

LISTCTLG VOL=disk=111111 
/¥® 





The control statements are discussed below: 


e DD2 DD defines a mountable device on which the volume 
containing the source OS CVOL is mounted. 


e SYSIN DD defines the control data set, which follows in the 
input stream. 


e LISTCTLG defines the source volume and specifies the list 
operation. 
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ITEHLIST EXAMPLE 2 


TEHLIST EXAMPLE 3 
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In this example, an OS CVOL residing on the system residence 


volume, 


an OS CVOL residing on another volume, are listed 


ppg aa JOB... 
EXEC PGM=IEHLIST 
SYSOUT=A 


/7SYSPRINT DD 
//DD1L DD 
//DD2 DD 
// 

//SYSIN DD 
LISTCTLG 
LISTCTLG 
LISTCTLG 
LISTCTLG 


UNIT=diskB, VOLUME=SER=111111,DISP=OLD 
UNIT=(diskA, , DEFER), DISP=OLD, 
VOLUME=CPRIVATE, ,SER=(222222)) 

% 


VOL =diskA=333333 
VOL=diskA=444444 
VOL=diskA=555555,NODE=A.B.C 


The control statements are discussed below: 


DD1 DD defines a system residence device. 


two OS CVOLS residing on disk volumes, anda portion of 





(The first OS 


CVOL to be listed resides on the system residence volume. ) 


DD2 DD defines a mountable device on which each diskA volume 


1S mounted as it 1S required by the program. 


SYSIN DD defines the control data set, 
input stream. 


The first LISTCTLG statement indicates that the OS CVOL 


which follows in the 


residing on the system residence volume is to be listed. 


The second and third LISTCTLG statements identify two diskA 


disk volumes containing OS CVOLs to be listed 


The fourth LISTCTLG statement identifies a diskA volume 
containing an OS CVOL that is to be partially listed. 
data set entries whose beginning qualifiers are "A.B.C™ are 


listed. 


All 


In this example, a partitioned data set directory existing on 


the system residence volume is listed. In addition, two 
partitioned data set directories existing on another disk volume 


are listed. 


//LISTPDIR JOB 

// EXEC PGM=IEHLIST 
7/7SYSPRINT DD 
7/DD1 DD 
//DD2 DD 


S/SYSIN DD 
LISTPDS 
LISTPDS 

1% 





SYSOUT=A 

UNIT=diskB, VOLUME=SER=111111,DISP=O0LD 
UNIT=diskA, VOLUME=SER=222222, DISP=OLD 
x 


DSNAME=PARSET1 ; 
DSNAME=CPART1, PART2),VOL=diskA=222222 


Utilities 





Vasant snot 





The control statements are discussed below: 
( @ DD1 DD defines the system residence device. 


e DD2 DD defines a mountable device on which a disk volume 
C€222222) 1s to be mounted. 


e SYSIN DD defines the control data set, which follows in the 
input stream. 


@ The first LISTPDS statement indicates that the partitioned 
data set directory belonging to data set PARSET1 is to be 
listed. This data set exists on the system residence 
volume. 


e The second LISTPDS statement indicates that partitioned data 
set directories belonging to data sets PART1 and PART2 are 


to be listed. These data sets exist on a disk volume 
C222222). 
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In this example, a nonindexed volume table of contents is listed 
in the first edited format. The edited listing is supplemented 
by an unedited listing of selected data set control blocks. 


//NTOCLIST JOB... 

// EXEC PGM=IEHLIST 

//SYSPRINT DD SYSOUT=A 

//DD2 DD UNIT=disk, VOLUME=SER=111111,DISP=OLD 
x 





S/SYSIN DD 
LISTVTOC FORMAT, VOL=disk=111111 


( LISTVTOC DUMP, VOL =disk=111111,DSNAME=(SET1,SET2,SET3) 
| 7% | 





The control statements are discussed below: 


e DD2 DD defines a mountable device on which the volume 
containing the specified volume table of contents is to be 
mounted. 


@ SYSIN DD defines the control data set, which follows in the 
input stream. 


e The first LISTVTOC statement indicates that the volume table 
of contents on the specified disk volume is to be listed in 
edited form. 


® The second LISTVTOC statement indicates that the data set 
control blocks representing data sets SET1, SET2, and SET3 
are to be listed in unedited form. 
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TEHMOVE PROGRAM 


ITEHMOVE is a system utility used to move or copy logical 
collections of operating system data. 


IEHMOVE can be used to move or copy: 


e A non-VSAM, non-ISAM data set residing on from one to five 
volumes. 


e A group of non-VSAM data sets cataloged in an O05 CVOL, 
integrated catalog facility or VSAM catalog. 


e An entire OS CVOL or portions of an OS CVOL. 
@ A volume of data sets. 
® BDAM data sets with variable-spanned records. 


A move operation differs from a copy operation in that a move 
operation scratches source data if the data set resides ona 
DASD source volume and the expiration date has occurred, while a 
copy operation leaves source data intact. In addition, for 
cataloged data sets, a move operation updates the 0S CVOL to 
refer to the moved version Cunless otherwise specified), while a 
copy operation leaves the OS CVOL unchanged. 


The scope of a basic move or copy operation can be enlarged by: 


e Including or excluding data sets from a move or copy 

operation 
° Merging members from two or more partitioned data sets 7 
e Including or excluding selected members ’ 
e Renaming moved or copied members 
® Replacing selected members 


When moving or copying a data set group or a volume containing 
password-protected data sets, you must provide the password each 
time a data set is opened or scratched. 


ITEHMOVE always moves or copies any user labels associated with 
an input data set. IEHMOVE does not take exits to a user's 
label processing routines. 


A move or copy operation results in: (1) a moved or copied data 
set, €2) no action, or (€3) an unloaded® version of the source 
data set. These results depend upon the compatibility of the 
source and receiving volumes with respect to: 


e Size of the volumes 
e Allocation of space on the receiving volume 
e Data set organization (sequential, partitioned, or BDAM) 


e Movability of the source data set 


If ITEHMOVE is unable to successfully move or copy specified 
data, an attempt is made to reorganize the data and place it 
on the specified output device. The reorganized data 
(called an unloaded data set) is a sequential data set (= 
consisting of 80-byte blocked records that contain the Y 
source data and control information for subsequently 
reconstructing the source data as it originally existed. 
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VOLUME SIZE COMPATIBILITY 


Two volumes are compatible with respect to size if: 


l. The source record size does not exceed the receiving track 
size, or 


2. The receiving volume supports the track overflow feature and 
the output is to be written with track overflow. (Refer to 
"Job Control Language for the Track Overflow Feature™ on 
page 35/7 for notes on the track overflow feature. ) 


When using BDAM data set organization, two volumes are 
compatible with respect to size if the source track capacity 
does not exceed the receiving track capacity. BDAM data sets 
moved or copied to a smaller device type or tape are unloaded. 
If you wish to load an unloaded data set, it must be loadéd to 
the same device type from which it was originally unloaded. 


Figure 116 shows the results of move and copy operations when 

the receiving volume is a DASD volume that is compatible in size 
with the source volume. The organization of the source data set 
is shown along with the characteristics of the receiving volume. 


Receiving Volume Sequential Partitioned BDAM 
Characteristics Data Sets Data Sets Data Sets 


Space allocated Moved or | Moved or 


by ITEHMOVE copied copied 
(movable data) 


Space allocated Moved or Moved or No , 
by IEHMOVE copied copied action 
Cunmovable data) 


Space previously Moved or Moved or No 
allocated, as copied copied action 
yet unused 

Space previously No action Moved or No 
allocated, copied | action 
partially used (merged) 


Figure 116. Move and Copy Operations——DASD Receiving Volume 
with Size Compatible with Source Volume 





Figure 117 shows the results of move and copy operations when 
the receiving volume is a DASD volume that 1S not compatible in 
size with the source volume. The organization of the source 
data set is shown along with the characteristics of the 
receiving volume. 


| Receiving Volume Sequential Partitioned BDAM 
Characteristics Data Sets Data Sets Data Sets 
Space allocated Unloaded Unloaded Unloaded 
by IEHMOVE 
Space previously Unloaded Unloaded No 
action 


allocated, as 
No action No action No 
action 


yet unused 
Figure 117. Move and Copy Operations~——DASD Receiving Volume 
with Size Incompatible with Source Volume 




















Space previously 
allocated, 
partially used 
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SPACE ALLOCATION 


Figure 118 on page 342 shows the results of move and copy 
operations when the receiving volume is not a DASD volume. The 
organization of the source data set is shown with the 
characteristics of the receiving volume. 


Recelving Volume a 
Characteristics Sequential Partitioned BDAM 
Movable data Moved or Unloaded Unloaded 
copied 
Unmovable data Unloaded Unloaded No 
action 


Figure 118. Move and Copy Operations—Non-DASD Receiving Volume 










Space can be allocated for a data set on a receiving volume 
either by you (through the use of DD statements ina prior job 
step) or by IEHMOVE in the IEHMOVE job step. If the source data 
is unmovable (that is, if it contains location-dependent code), 
you should allocate space on the receiving volume using absolute 
track allocation to ensure that the data set is placed in the 
same relative location on the receiving volume as it was on the 
source volume. Unmovable data can be moved or copied if space 
is allocated by IEHMOVE, but the data may not be in the sane 
location on the receiving volume as it was on the source volume. 
When data sets are to be moved or copied between unlike DASD 
devices, a secondary allocation should be made to ensure that 
ample space 1s available on the receiving volume. 


Space for a new data set should not be allocated by you when a 
BDAM data set is to be moved or copied, not unloaded, because 
IEHMOVE cannot determine if the new data set is empty. 


If IEHMOVE performs the space allocation for a new data set, the 
Space requirement information of the old data set (Cif available) 
is used. This space requirement information 1s obtained from 
the DSCB of the source data set, if it 1s on a DASD volume, or 
from the control information in the case of an unloaded data 
set. 


If space requirement information is available, IEHMOVE uses this 
information to derive an allocation of space for the receiving 
volume, taking into account the differences in device 
characteristics, such as track capacity and overhead factors. 
However, when data sets with variable or undefined record 
formats are being moved or copied between unlike DASD devices, 
no assumption can be made about the space that each individual 
record needs on the receiving device. 


In general, when variable or undefined record formats are to be 
moved or copied, IEHMOVE attempts to allocate sufficient space. 
This might cause too much space to be allocated under the 
following circumstances: 


é When moving or copying from a device with a relatively large 
block overhead to a device with a smaller block overhead, 
the blocks being small in relation to the block size. 


e When moving or copying from a device with a relatively small 
block overhead to a device with a larger block overhead, the 
blocks being large in relation to the block size. 


BDAM data sets with variable or undefined record formats always 
have the same amount of space allocated by ITEHMOVE. This 
practice preserves any relative track addressing system that 
might exist within the data sets. 
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REBLOCKING DATA SETS 


If a sequential data set, which is not an unloaded data set, on 
a non-DASD volume is to be moved or copied to a DASD volume, and 
space attributes are not available through a previous 
allocation, IEHNOVE makes a default space allocation. The 
default allocation consists of a primary allocation of 72,500 
bytes of DASD storage (data and gaps) and up to 15 secondary 
allocations of 36,250 bytes each. 


Space cannot be previously allocated for a partitioned data set 
that is to be unloaded unless the SPACE parameter in the DD 
statement making the allocation implies sequential organization. 
BDAM data sets should not be previously allocated because 
ITEHMOVE cannot determine whether they are empty or not. 


If a move or copy operation is unsuccessful, the source data 
remains intact. 





If a move or copy operation is unsuccessful and space was 
allocated by IEHMOVE, all data associated with that operation is 
scratched from the receiving DASD volume. If the receiving 
volume was tape, it will contain a partial data set. 


If a move or copy operation 1s unsuccessful and space was 
previously allocated, no data is scratched from the receiving 
volume. If, for example, IEHMOVE moved 104 members of a 
105-member partitioned data set and encountered an input/output 
error while moving the 105th member: 








e The entire partitioned data set is scratched from the 
receiving volume if space was allocated by IEHMOVE. 


e No data is scratched from the receiving volume if Space was 
previously allocated. In this case, after determining the 
nature of the error, you need move only the 105th member 
into the receiving partitioned data set. 


If a data set that has only user trailer labels is to be moved 
from a tape volume to a DASD volume, space must be previously 
allocated on the DASD volume to ensure that a track is reserved 
to receive the user labels. 


Data sets with fixed or variable records can be reblocked to a 
different block size by previously allocating the desired block 
size on the receiving volume. No reblocking can be performed 
when loading or unloading. Also, no reblocking can be performed 
on spits sets with variable spanned or variable blocked spanned 
records. 


When moving or copying data sets with undefined record format 
and reblocking to a smaller block size (that is, transferring 
records to a device with a track capacity smaller than the track 
capacity of the original device), you must make the block size 
for the receiving volume equal to or larger than the size of the 
largest record in the data set being moved or copied. 


When copying data sets with undefined record format to a device 
with a larger track capacity, IEHMOVE will not reblock the 
output data set to a larger block size. IEHMOVE simply copies 
the source data set to the target data set. 


However, if the target data set is preallocated with a larger 
block size than the source data set, the data set becomes 
unusable because the source block size is used during the copy. 


Blocked format data sets that do not contain user data TTRNs or 
keys can be reblocked or unblocked by including the proper 
keyword subparameters in the DCB operand of the DD statement 
used to previously allocate space for the data set. The new 
blocking factor must be a multiple of the logical record length > 
originally assigned to the data set. For a discussion of user. 
data TTRNs, see d t 10 j . 
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USING TEHMOVE WITH RACF 


If the Resource Access Control Facility CRACF) is active, the —_— 
following considerations apply: uy 
e You must have valid RACF authorization to access any 


RACF-defined data sets with IEHMOVE. ALTER authorization is 
required to access the source data set for a MOVE function, 
as the source data set is scratched. When moving a volume 
or group of data sets, you must have adequate access 
authorization to all of the RACF-protected data sets on the 
volume or in the group. 


@ If you have the RACF ADSP attribute and IEHMOVE ais to 
allocate space for the receiving data set, that data set 
will be automatically defined to RACF. If the data set does 
not have your userid as the first level qualifier, at least 
one of the following conditions must be met 


_ You specify MOVE or COPY with RENAME so that the first 
level qualifier is the correct userid 


= The data set being moved or copied is a group data set 
and You are connected to the group with CREATE authority 


ae You have the OPERATION attribute 


@ If COPYAUTH is specified and the input data set is 
RACF-protected (whether or not you have the ADSP attribute) 
and the output data set is not preallocated, then the 
receiving data set of a MOVE or COPY operation is given a 
copy of the input data set's RACF protection and access list 
during allocation, governed by the same restrictions 
described above for defining a data set for a user with the 
ADSP attribute. You must have ALTER access authorization to 
the input data set to either MOVE or COPY using COPYAUTH. 


MOVING OR COPYING A DATA SET 


IEHMOVE can be used to move or copy sequential, partitioned, and 
BDAM data sets, as follows: 


e A sequential data set can be: 
1. Moved from one DASD volume or non-DASD volume to another 
Cor to the same volume provided that it is a DASD 
volume), or 
2. Copied from one volume to another Cor to the same volume 
provided that the data set name is changed and the 
receiving volume is a DASD volume). 


° A partitioned data set can be: 


pos 


Moved from one DASD volume to another Cor to the same 
volume), or 


2. Copied from one DASD volume to another Cor to the same 
volume provided that the data set name is changed). 


e A BDAM data set can be moved or copied from one DASD volume 
to another provided that the receiving device type is the 
same device type or larger, and that the record size does 
not exceed 32K bytes. 
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SEQUENTIAL DATA SETS 


Figure 119 shows basic and optional move and copy operations for 


sequen 


Operation 


Move 
Sequ 


Copy 
Sequ 


Figure 


When moving or copying sequential data sets on DASD, 


tial data sets. 


Move the data set. 

For DASD, scratch the 
source data. For 
non-VSAM cataloged 
data sets, update the 
appropriate catalog to 
refer to the moved 
data set. 


ential 


Copy the data set. 

The source data set 1s 
not scratched. The 
catalog 1s not updated 
to refer to the copied 
data set. 


ential 





Prevent automatic 
cataloging of the 
moved data set. 
Rename the moved data 
set. 


Delete the catalog or 
OS CVOL entry for the 
source data set. 
Catalog the copied 
data set on the 
receiving volume. 
Rename the copied data 
set 


119. Moving and Copying Sequential Data Sets 


LEHMOVE 


execution time can be reduced by using multiple BSAM buffers for 


input 


and output. 


The minimum number of buffers required for enhanced IEHMOVE copy 


perfor 
an inp 
DECB L 


mance 1s 4: two for input 
ut buffer is computed as: 
ENGTH + 4G. 


and two for output. 
CINPUT BLOCKSIZE + KEY LENGTH) + 
The size of an output buffer is computed as: 


The size of 


COUTPUT BLOCKSIZE + KEY LENGTH) + DECB LENGTH + 4 + 16 


The maximum number of input buffers used by IEHMOVE is two times 
the number of buffers that will fit in the input track size. 

The maximum number of output buffers used by IEHMOVE is two 
times the number of buffers that will fit in the output track 


size. 


If space for the minimum of four buffers is not available, a 
single buffer is used and message IJEH4$76I is issued. 


You can code the JCL REGION parameter in the JOB or EXEC 


statement to control buffer storage allocation. 


see JCL. 


describing the number and size of your buffers, 


how to 


Messag 


code the REGION parameter, 
e ITEHS77I1, 


For details on 


will be issued each time multiple BSAM buffers are used. If you 
do not specify your region size to achieve the maximum number of 


buffer 


S> 


the last line of the message will indicate the amount 


by which the value of the REGION parameter should be increased 
in order to obtain the maximum number of buffers. 


The execution time of an IEHMOVE move or copy operation will 


vary with the number of buffers available, 


sets, 


and the block size. 


the size of the data 
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PARTITIONED DATA SETS 
Figure 120 shows basic and optional move and copy operations for —_ 


partitioned data sets. wy 


Operation 





Move 
Partitioned 





Copy 
Partitioned 


Move the data set. 
Scratch the source 
data. For non-VSAM 
cataloged data sets, 
update the appropriate 
catalog to refer to 
the moved data set. 


Copy the data set. 

The source data is not 
scratched. The 
catalog is not updated 


Prevent automatic 
cataloging of the 
moved data set. 
Rename the moved data 
set. Reallocate 
directory space. (Not 
possible if the space 
was not allocated by 
TEHMOVE during this 
move function.) 
Perform a merge 
operation using 
members from two or 
more data sets. Move 
only selected members. 
Replace members. 
Unload the data set. 


Delete the catalog or 
OS CVOL entry for the 
source data set. 
Catalog the copied 


data set. Rename the 
copied data set. 
Reallocate directory 
space. (Not possible 
if the space 
previously allocated oe 
is partially used.) : \ 
Perform a merge 
operation using 
members from two or 
more data sets. Copy 
only selected members. 
Replace members. 
Unload the data set. 


to refer to the copied 
data set. 





Figure 120. Moving and Copying Partitioned Data Sets 


IEHMOVE moves or copies partitioned members in the order in 
which they appear in the partitioned directory. That 1s, moved 
or copied members are placed in collating sequence on the 
receiving volume. 

Figure 121 on page 347 shows a copied partitioned data set. The 
members are copied in the order in which they appear in the 
partitioned directory. The IEBCOPY utility program (see 
"TEBCOPY Program" on page 36) can be used to copy data sets 
whose members are not to be collated. 
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Source data set Copied data set 


Directory Directory 





Figure 121. Partitioned Data Set Before and After an ITEHMOVE 
Copy Operation 


Members that are merged into an existing data set are placed, in 
collating sequence, after the last member in the existing data 
set. If the target data set contains a member with the same 
name as the data set to be moved, the member will not be 
moved/copied unless the REPLACE statement is coded. 





Figure 122 shows members from one data set merged into an 
existing data set. Members B and F are copied in collating 
sequence. 


Source data set 


Directory 
BF 


aol 





Existing data set Existing data set 
prior to merge after merge 










Directory 
ACG 


Directory 
A 





Figure 122. Merging Two Data Sets Using IJEHMOVE 


Figure 123 on page 348 shows how members from two data sets are 
merged into an existing data set. Members from additional data 
sets can be merged ina like manner. Members F, B, D, and E 
from the source data sets are copied in collating sequence. 
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Source data sets pf 






















| Yaw 
: Directory 
. BF 
Existing data set | Existing data set 
prior to merge after merge E 
| Directory Directory Directory 
| ACG ABCDEF G| DE 
| Members Members ae ae 
Note: New members 
are placed in collating 
sequence after existing 
members ee 
lla ae, 


Figure 123. Merging Three Data Sets Using IEHMOVE 


BDAM DATA SETS 


When moving or copying a BDAM data set from one device to 
another device of the same type, relative track and relative 
block integrity are maintained. 


When moving or copying a BDAM data set to a larger device, 
relative track integrity 1s maintained for data sets with 
variable or undefined record formats; relative block integrity 
1S maintained for data sets with fixed record formats. 


When moving or copying a BDAM data set to a smaller device or a 
tape, the data set is unloaded. An unloaded data set is loaded 
only when it is moved or copied to the same device type from 
which it was unloaded. - 


MULTIVOLUME DATA SETS 


IEHMOVE can be used to move or copy multivolume data sets. To 
| move or copy a multivolume data set, specify the complete volume 
| list in the VOL=SER parameter on the DD statement. A maximum of 
3 5 volumes can be specified. To move or copy a data set that 
resides on more than one tape volume, specify the volume serial 
numbers of all the tape volumes and the sequence numbers of the 
data set on the tape volumes in the utility control statement. 
CYou can specify the sequence number even if the data set to be 
moved or copied is the only data set on a volume.) To move or 
copy a data set to more than one tape volume, specify the volume 





348 MVS/XA Data Administration: Utilities 














serial numbers of all the receiving volumes in the utility 
control statement. 





UNLOADED DATA SETS 


If IEHMOVE is unable to successfully move or copy specified 
data, an attempt is made to reorganize the data and place it on 
the specified output device. The reorganized data (called an 
Unloaded data set) is a sequential data set consisting of 
80-byte blocked records that contain the source data and control 
information for subsequently reconstructing the source data as 
it originally existed. 


When an unloaded data set is moved or copied (via IEHMOVE) to a 
device that will support the data in its true form, the data is 
automatically reconstructed. For example, if you attempt to 
move a partitioned data set to a tape volume, the data is 
unloaded to that volume. You can re-create the data set merely 
by moving the unloaded data set to a DASD volume. 


UNMOVABLE DATA SETS 


A data set with the unmovable attribute can be moved or copied 
from one DASD volume to another or to the same volume provided 
that space has been previously allocated on the receiving 
volume. Change the name of the data set if move or copy is to 
be done to the same volume. SVCLIB can be moved or copied to 
another location on the system residence volume, provided that 
space has been previously allocated on that volume. The 
IEHPROGM utility program (€see "IEHPROGM Program" on page 385) 
must be used immediately after such a move operation to rename 
the moved version SYSI1.SVCLIB; If the operation was a ‘'copy', 
IEHPROGM must be used to scratch the old version and to rename 
the copied version. 


OVING 9O YING GROUP OF CATALOGED DATA SETS 


IEHMOVE can be used to move or copy a group of non-VSAM data 
sets that are cataloged in integrated catalog facility or VSAM 
catalogs and whose names are qualified by one or more identical 
names. For example, a group of data sets qualified by the name 
A.B can include data sets named A.B.D and A.B.E, but could not 
include data sets named A.C.D or A.D.F. 


If you specify that the data set group is cataloged in an OS 
CVOL, two additional options are available. First, additional 
data sets not belonging to the specified data set group can be 
included in the move or copy operation. Second, data sets 
belonging to the group can be excluded from the requested 
operation. 


Before copying/moving a DSGROUP that is cataloged in an OS CVOL, 
the volume containing the OS CVOL must be defined in the 
integrated catalog facility or VSAM master catalog. For details 
on how this is done, see Catalog Administration Guide. 


If a group of data sets is moved or copied to magnetic tape, the 
data sets must be retrieved one by one by data set name and 
file-sequence number, or by file-sequence number for unlabeled 
or nonstandard labeled tapes. 


Access method services can be used to determine the structure of 
integrated catalog facility or VSAM catalogs. For more 
information, see Access Method Services Reference 


Figure 124 shows basic and optional move and copy operations for 
a group of non-VSAM cataloged data sets. 
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Move group Move the data set Prevent updating of 
of group Cexcluding the appropriate 
non-VSAM password-protected catalog. Include 
cataloged data sets) to the password-protected 
data sets specified volumes. data sets in the 
Scratch the source operation. Unload 
data sets (BDAM only). data sets. If a data 
Merging 1s not done. set group 18S cataloged 
in an OS CVOL, you may 
INCLUDE or EXCLUDE 
data sets during the 
operation. 


Copy group Copy the data set Include 
of group Cexcluding password-protected 
non-VSAM password-protected data sets in the 
cataloged data sets). Source operation. Delete 
data sets data sets are not catalog entries for 
scratched. Merging is the source data sets. 
not done. Catalog the copied 
data sets on the 
receiving volumes. 
Unload a data set or 
sets. If a data set 
group 1s cataloged in 
an OS CVOL, you may 
INCLUDE or EXCLUDE 
data sets during the 
operation. 





Figure 124. Moving and Copying a Group of Non-VSAM Cataloged 
Data Sets 


OVING OR COPYING OSs 0 


TEHMOVE can be used to move or copy an OS CVOL or portions of an 
OS CVOL without copying the data sets represented by the 
cataloged entries. If the OS CVOL is in an unloaded form, all 
entries are moved or copied. The SYSCTLG (system catalog) data 
set need not be defined on the receiving volume before the 
operation. If, however, SYSCTLG was defined before the 
operation, the. data set organization must not have been 
specified in the DCB field. Moved or copied entries are merged 
with any existing entries on the receiving volume. The 
receiving volume must be a DASD volume unless the OS CVOL is to 
be unloaded. 


If an OS CVOL is copied, it remains unchanged. If it is moved, 
the moved entries are uncataloged from the source CVOL 
CHowever, empty GDG names and partial indexes are left in the 
meat a aes If the entire CVOL is moved, the old CVOL is 
scratched. 
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Figure 125 shows basic and optional move and copy operations for 
the OS CVOL. 


Move OS Move entries from the 

CVOL OS CVOL to the 
specified DASD volume. 
Uncatalog all entries 
moved from the source 
CVOL. Scratch the 
source CVOL if the 
entire CVOL is moved. 


Exclude selected 
entries from 
operation. Move an 
unloaded version of 
the OS CVOL. Unload 
the OS CVOL. 


Exclude selected 
entries from the 
operation. Copy an 
unloaded version of 
the OS CVOL. Unload 








Copy OS Copy entries from the 
CVOL OS CVOL to the 
specified DASD. The 
source OS CVOL is not 
scratched. 
the OS CVOL. 


Pegure 125. Moving and Copying the OS CVOL 


Before copying or moving an OS CVOL, both the volume containing 
the OS CVOL and the volume to which the OS CVOL is to be moved 
must be defined in the integrated catalog facility or VSAM 
master catalog. 


MOVING OR COPYING A VOLUME OF DATA SETS 


IEHMOVE can be used to move or copy the data sets of an entire 
DASD volume to another volume or volumes. A move operation 
differs from a copy operation in that the move operation 
scratches source data sets, while the copy operation does not. 
For both operations, any cataloged entries associated with the 
source data sets remain unchanged. The IEHPROGM utility program 
can be used to delete OS CVOL entries for all of the cataloged 
data sets and recatalog them according to their new location. 
(See "ITEHPROGM Program" on page 385.) 


If the source volume contains a SYSCTLG data set, that data set 
is the last to be moved or copied onto the receiving volume. 


If a volume of data sets is moved or copied to tape, sequential 
data sets are 'moved'; partitioned and BDAM data sets are 
funloaded'. The data sets must be retrieved one by one by data 
set name and file-sequence number, or by file-sequence number 
for unlabeled or nonstandard labeled tapes. 


When copying a volume of data sets, you have the option of 
cataloging all source data sets ina SYSCTLG data set ona 
receiving volume. However, if a SYSCTLG data set exists on the 
source volume, error messages indicating that an inconsistent 
index structure exists are generated when the source SYSCTLG 
ass are merged into the SYSCTLG data set on the receiving 
volume. 


The move-volume feature does not merge partitioned data sets. 
If a data set on the volume to be moved has a name identical to 
a data set name on the receiving volume, the data set is not 
moved or merged onto the receiving volume. 


The copy-volume feature does merge partitioned data sets. Ifa 
data set on the volume to be copied has a name identical toa 
data set name on the receiving volume, the data set is copied 
and merged onto the receiving volume. 
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Figure 126 shows basic and optional move and copy operations for 
a volume of data sets. 


Move a Move all data sets not Include 
volume of protected by a password-protected 
data sets password to the data sets in the 
specified DASD operation. Unload the 
volumes. Scratch the data sets. 
source data sets for 
DASD volumes. The OS 


CVOL is not updated. 


COPY a Copy all data sets not Include 
volume of protected by a password-protected 
data sets password to the data sets in the 
specified DASD volume. operation. Catalog 
The source data sets all copied data sets 
are not scratched. in the OS CVOL. 
Unload the data sets. 





Figure 126. Moving and Copying a Volume of Data Sets 


MOVING OR COPYING BDAM DATA SETS WITH VARIABLE-SPANNED RECORDS 


IEHMOVE can be used to move or copy BDAM data sets with variable 
spanned records from one DASD volume to a compatible DASD 
volume, provided that the record size does not exceed 32K bytes. 
(See "Volume Size Compatibility” on page 341 for information on 
volume compatibility.) 


Because a BDAM data set can reside on one to five volumes (Call 

of which must be mounted during any move or copy operation), it 
is possible for the data set to span volumes. However, single 

variable-spanned records are contained on one volume. 


Relative track integrity is preserved in a move or copy 
operation for spanned records. Moved or copied BDAM data sets 
occupy the same relative number of tracks that they occupied on 
the source device. 


If a BDAM data set 1s unloaded (moved or copied to a smaller 
‘device or tape), it must be loaded back to the same device type 
from which it was originally unloaded. 


When moving or copying variable-spanned records to a larger 
device, record segments are combined and respanned if necessary. 
Because the remaining track space is available for new records, 
variable-spanned records are unloaded before being moved or 
copied back to a smaller device. 


If you wish to create a BDAM data set without using data 
management BDAM macros, all data management specifications must 
be followed. Special attention must be given to data management 
specifications for RO track capacity record content, segment 
descriptor words, and the BFTEK=R parameter. For more 
information on using data management specifications, see Data 


Administration Guide. 


When moving or copying a multivolume data set, the secondary 
allocation for BDAM data sets should be at shui two tracks. 


(See the "WRITE" macro in dmj ru 
Reference.) 
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INPUT AND OUTPUT 


RETURN CODES 


CONTROL 


ITEHMOVE uses the following input: 


e One or more data sets, which contain the data to be moved, 
copied, or merged into an output data set. 

e A control data set, which contains utility control 
statements that are used to control the functions of the 
program. 


e A work data set, which is a work area used by ITEHMOVE. 
ITEHMOVE does not support VIO (virtual input/output) data sets. 
IEHMOVE produces the following output: 


e An output data set, which is the result of the move, copy, 
or merge operation. 


® A message data set, which contains informational messages 


(for example, the names of moved or copied data sets) and 
error messages, if applicable. 


IEHMOVE returns a code in register 15 to indicate the results of 
program execution. The return codes and their meanings are 
listed below. 


Code Meaning 


00 (00 hex) Successful completion. 


04 (04) A specified function was not completely successful. 
Processing continues. 

08 (08) A condition exists from which recovery 1s possible. 
Processing continues. 

l2 (0C) An unrecoverable error exists. The job step is 
terminated. : 

16 (10) It is impossible to OPEN the SYSIN or SYSPRINT data 


set. The job step is terminated. 


Figure 127. ITEHMOVE Return Codes 


IEHMOVE is controlled by job control statements and utility 
control statements. The job control statements are used to 
execute or invoke the program, define the devices and volumes 
used and produced by IEHMOVE, and prevent data sets from being 
deleted inadvertently. 


Utility control statements are used to control the functions of 
the program and to define those data sets or volumes that are to 
be used. 


IEHMOVE supports 3-byte UCB addresses and does not use device 


allocation tables. The maximum number of UCBs allowed under 
MVS/XA is 4096. 
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JOB CONTROL STATEMENTS | 


PARM Information on 


Figure 128 shows the job control statements for IEHMOVE. C \ 
ee 

Statement Use 

JOB Initiates the job. 

EXEC Specifies the program name (PGM=IEHMOVE) or, if 


the job control statements reside ina procedure 
library, the procedure name. This statement can 
include optional PARM information; see "PARM 
Information on the EXEC Statement.” 


SYSPRINT DD Defines a sequential message data set. The data 
set can be written onto a system output device, a 
magnetic tape volume, or a direct access volume. 


SYSUT1 DD Defines a volume on which three work data sets 
required by IEHMOVE are allocated 


anynamel DD Defines a permanently mounted DASD volume. (The 
system residence volume is considered to be a 
permanently mounted volume.) This statement is 
required. 


anyname2 DD Defines a mountable device type. At least one 
anyname2z DD statement is required. Multiple 
‘statements must have unique names. 


tape DD Defines a mountable tape device. 


SYSIN DD Defines the control data set. The data set, 
which contains utility control statements, 
usually follows the job control statements in the © 
input stream; however, it can be defined either ae, 
as a sequential data set or as a member of a 
procedure library. 


Figure 128. IEHMOVE Job Control Statements 


With the exception of the SYSIN and SYSPRINT DD statements, all 
DD statements in this table are used as device allocation : 
statements, rather than as true data definition statements. The 
a glanas number of these allocated devices cannot exceed 256 per 
job step. 


the EXEC Statement 
The EXEC statement for IEHMOVE can contain PARM information that 
is used by the program to allocate additional work space and/or 


control line density on output listings. The EXEC statement can 
be coded, as follows: 


PGM=IEHMOVEL ,PARM="POWER=n' 





C, "LINECNT=xx']] 


The POWER=n parameter is used to request that the normal amount 

of space allocated for work areas be increased n times (1 to 

999). The POWER parameter is used when 750 or more members are a 
being moved or copied. The progression for the value of n is: fq | 


e POWER=2 when 750 to 1500 members are to be moved or copied. 
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e POWER=3 when 1501 to 2250 members are to be moved or copied. 
@ POWER=4 when 2251 to 3000 members are to be moved or copied. 


If POWER=2, the work space requirement on the SYSUT1 volume is 
two times the basic requirement; if POWER=3, work space 
requirement is three times the basic requirement, etc. For 
example, if POWER=2, three areas of 26, 26, and 52 contiguous 
tracks on a 3380 must be available. 


When moving or copying an OS CVOL, the value of the POWER 
parameter can be calculated, as follows: 


n=C10D + V + 206)74000 


where Dis the total number of data sets, aliases, and 
generation data set entries (which is the number of data set 
names printed by the IEHLIST utility program when the LISTCTLG 
statement is specified); V is the total number of volumes used 
by these data sets (which is the number of lines printed by the 
IEHLIST utility program when the LISTCTLG statement is 
specified); and G is the number of generation data sets. 
Approximate values can be used 


° POWER=2 when 350 to 700 data sets are cataloged. 

) POWER=3 when 701 to 1,050 data sets are cataloged. 

e POWER=4 when 1,051 to 1,400 data sets are cataloged. 

The LINECNT=xx parameter specifies the number of lines per page 


in the listing of the SYSPRINT data set; xx is a two-digit 
number in the range 04 through 99. 


For more information on PARM galuese. wee Supervisor Services and 
Macro Instructions. 


SYSPRINT DD Statement 


SYSUT1 DD Statement 


The block size for the SYSPRINT data set must be a multiple of 
121. <Any blocking factor can be specified. 


The SYSUT1 DD statement must be coded: 
//SYSUT1 DD UNIT=xxxx, VOLUME=SER=xxxxxx, DISP=OLD 


The UNIT and VOLUME parameters define the device type and volume 
serial number. The DISP=OLD specification prevents the 
inadvertent deletion of a data set. 


At least three utility work areas of 13, 13, and 26 contiguous 
tracks, respectively, must be available for work space on the 
volume defined by the SYSUT1 DD statement. (This figure is 
based on a 3380 being the work volume. If a direct access 
device other than a 3380 is used, an equivalent amount of space 
must be available.) 


Note: IEHMOVE uses nonstandard data set names to allocate its 

work data sets. The names start with one or more asterisks. 

LD ecrinar at data sets are deleted at completion of the requested 
unctions. 


However, if IEHMOVE does not terminate normally Cabend, system 
crash, etc.), these work data sets remain on the DASD volume and 
cannot be deleted with any IBM utility. You must delete them by 
executing an IEFBR14 3j0b and specifying their data set name(s) 
in single quotes with DISP=COLD,DELETE). 
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anynamel DD Statement 


One anynamel DD statement must be included for each permanently 
mounted volume referred to in the job step. 


The anynamel DD statement should be coded: 
//anynamel DD UNIT=oox, VOLUME=SER=xxxxxx, DISP=OLD 


In the anynamel DD statement, the UNIT and VOLUME parameters 
define the device type and volume serial number. The DISP=OLD 
specification prevents the inadvertent deletion of a data set. 


When unloading a data set from one DASD volume to another, the 
data set name (DSN=) must be coded on the DD statement for the 
data set to be unloaded. An unloaded data set on a DASD volume 
pat ae be loaded to the same device type from which it was 
unloade 


(The anynamel DD statement is arbitrarily assigned the ddname 
DD1 in the IJTEHMOVE examples. ) 


anynamee DD Statement 


356 


One anyname2 DD statement must be included for each mountable 
device to be used in the job step. Multiple anyname2 DD 
statements must have unique names. 


When ITEHMOVE is dynamically invoked ina job step containing 
another program, the DD statements defining mountable devices 
for ITEHMOVE must be included in the job stream prior to DD 
statements defining data sets required by the other program. 


The anyname2 DD statement should be coded: 
//anyname2 DD UNIT=xxxx, VOLUME=SER=xxxxx»x, DISP=OLD 


The UNIT and VOLUME parameters define the device type and volume 
serial number. The DISP=OLD specification prevents the 
inadvertent deletion of a data set. 


When unloading a data set from one DASD volume to another, the 
data set name CDSN=) must be coded on the DD statement for the 
data set to be unloaded. An unloaded data set on a DASD volume 
can only be loaded to the same device type from which it was 
unloaded. 


(The anyname2d DD statement is arbitrarily assigned the ddname 
DD2 in the IEHMOVE examples. ) 


When the number of volumes to be processed is greater than the 
number of devices defined by DD statements, there must be an 
indication Cin the applicable DD statements) that multiple 
volumes are to be processed. This indication can be in the form 
of deferred mounting, as follows: 


//anyname2 DD UNIT=(xxxx,, DEFER), VOLUME=C(PRIVATE,...), 
// DISP=(€...,KEEP) 


See Appendix B, "DD Statements for Defining Mountable Devices" 

on page 423 for information on defining mountable devices. CDD 

statements defining additional mountable device types are 

assigned names DD3, DDG, etc., in the ITEHMOVE examples.) Unit 

anes cannot be used on DD statements defining mountable 
evices. 


A merge operation requires that one DD statement defining a 
mountable device be present for each source volume containing 
data to be included in the merge operation. 
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tape DD Statement 


SYSIN DD Statement 


The tape DD statement can be coded: 


Sica DD DSNAME=xxxxxxxx, UNIT= Ao amass SER=xxxxxXX » 
DISP=C(€...,KEEP),LABEL=C. .),DCB=C TRTICH=C, DEN=x) 


When unloading a data set from one DASD volume to another, the 
data set name CDSN=) must be coded on the DD statement for the 
data set to be unloaded. An unloaded data set on a DASD volume 
a hes be loaded to the same device type from which it was 
unloaded. 


A utility control statement parameter refers to the tape DD 
statement for label and mode information. 


The date on which a data set is moved or copied to a magnetic 
tape volume is automatically recorded in the HDR] record of a 
standard tape label if a TODD parameter 1s specified in a 
utility control statement. An expiration date can be specified 
by including the EXPDT or RETPD subparameters of the LABEL 
keyword in the DD statement referred to by a TODD parameter. 


A sequence number, for a data set on a tape volume, or a 
specific device address (for example, unit address 190), must be 
specified on a utility control statement instead of a reference 
to a DD statement. To move or copy a data set from or to a tape 
volume containing more than one data set, specify the sequence 
number of the data set in the utility control statement. To 
move or copy a data set from or to a specific device, specify 
the unit address Crather than a group name or device type) in 
the utility control statement. To copy to a unit record or 
unlabeled tape volume, specify any standard name or number in 
the utility control statement. 


The tape DD statement can be used to communicate DCB attributes 
of data sets residing on tape volumes that do not have standard 
labels to IEHMOVE. If no DCB attributes are specified, an 
undefined record format and a block size of 2560 are assumed. 
However, in order to recognize unloaded data sets on an 
gees tape volume, the DCB attributes must be specified as 
follows: 


DCB=CRECFM=FB,LRECL=80, BLKSIZE=800). 


IEHMOVE automatically calculates and allocates the amount of 
space needed for the work areas. No SPACE parameter, therefore, 
should be coded in the SYSUT1 DD statement. If, in the PARM 
field of the EXEC statement, POWER=3 is specified, the work 
Space requirement is three times the basic requirements, etc. 


Prior space allocations can be made by specifying a dummy 
execution of the IEHPROGM utility program before the execution 
of IEHMOVE. 


The block size for the SYSIN data set must be a multiple of 80. 
Any blocking factor can be specified 


Job Control Language for the Track Overflow Feature 


A data set containing track overflow records can be moved or 
copied if the source volume and the receiving volume are mounted 
on DASD that support the track overflow feature. (For BDAM data 
right source and receiving devices must be the same device 
ype. 


A data set that was written without track overflow can be moved 


or copied with or without track overflow or vice versa if the 
following conditions are met: 
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@. Space was allocated for the data set prior to the request 
for a move or copy operation. = | 


° The DD statement used for that allocation included the Me 
subparameter to specify the changed track overflow value and 
all other desired values. (The RECFM specifications 
assigned when the data set was originally created are 
overridden by the RECFM subparameter in this DD statement.) 


If space has not been allocated, or if RECFM was not specified 
when space was allocated, the data set is moved or copied in 
accordance with RECFM specifications that were made when the 
data set was originally created. This track overflow attribute 
is not retained for a sequential data set that is moved or 
copied to a device other than a DASD 


UTILITY CONTROL STATEMENTS 


IEHMOVE is controlled by the utility control statements shown in 
Figure 129 


Statement Use 

MOVE DSNAME Moves a data set. 

COPY DSNAME Copies a data set. 

MOVE DSGROUP Moves a group of non-VSAM cataloged data sets. 
COPY DSGROUP Copies a group of non-VSAM cataloged data sets. 
MOVE PDS Moves a partitioned data set. 

COPY PDS Copies a partitioned data set. 

MOVE VOLUME Moves a volume of data sets. 

COPY VOLUME Copies a volume of data sets. 

MOVE CATALOG Moves OS CVOL entries. 

COPY CATALOG Copies OS CVOL entries. 

Figure 129, IJIEHMOVE Utility Control Statements 


In addition, there are four subordinate control statements that 
can be used to modify the effect of a MOVE DSGROUP, COPY 
DSGROUP, MOVE PDS, COPY PDS, MOVE CATALOG, or COPY CATALOG 
operation. The subordinate control statements are: 


° INCLUDE statement, which is used to enlarge the scope of a 
MOVE DSGROUP Cwith CVOL), COPY DSGROUP Cwath CVOL), MOVE 
PDS, or COPY PDS statement by including a member or data set 
not explicitly included by the statement it modifies. 


® EXCLUDE statement, which is used with a MOVE DSGROUP (with 
CVOL), COPY DSGROUP Cwith CVOL), MOVE PDS, COPY PDS, MOVE 
CATALOG, or COPY CATALOG statement to exclude data set(s), a 
member or OS CVOL entryCies) from a move or copy operation. 


® REPLACE statement, which is used with a MOVE PDS or COPY PDS 
statement to exclude a member from a move or copy operation 
and to replace it with a member from another partitioned 
data set. 


® SELECT statement, which is used with MOVE PDS or COPY PDS “ee 


statements to select members to be moved or copied and, 
optionally, to rename the specified members. 
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Continuation requirements for utility control statements are 
described in "Continuing Utility Control Statements" on page 5. 
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MOVE DSNAME Statement 


If the data set is cataloged Cin an OS CVOL, integrated catalog 
facility or VSAM catalog), the catalog is automatically updated 
unless UNCATLG/FROM is specified. 


The format of the MOVE DSNAME statement is: 





[label] | MOVE DSNAME=name 
» TO=device=list 
[, {FROM=device=list|CVOL=device=serial}] 
[, UNCATLG] | 
[»RENAME=name] 
[, FROMDD=ddname] 





[,TODD=ddnamel 
[,UNLOAD] 
[,COPYAUTH] 


COPY DSNAME Statement 
The COPY DSNAME statement is used to copy a data set. 
The source data set, if cataloged, remains cataloged unless 
UNCATLG or CATLG is specified without the RENAME and FROM 
parameters. 


The format of the COPY DSNAME statement is: 


Clabel] COPY DSNAME=name 
» TO=device=list 
[,{FROM=device=list|]CVOL=device=serial}] 
[,UNCATLG] 
[,CATLG] 


[,RENAME=namel 
[,FROMDD=ddname]l 
[, TODD=ddname] 
C[,UNLOAD] 
[,COPYAUTH] 
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The MOVE DSNAME statement is used to move a data set. The —_ 
source data set is scratched. 7 








MOVE DSGROUP Statement 


The MOVE DSGROUP statement is used to move groups of data sets 
whose names are partially qualified by one or more identical 
names. The data sets may be cataloged on several catalogs (0S 
CVOL, integrated catalog facility or VSAM). Source data sets 
are scratched. Data set groups to be moved must reside on DASD 
volumes. Only data sets that could be moved by MOVE DSNAME or 
MOVE PDS can be moved by MOVE DSGROUP. Alias entries in 
integrated catalog facility or VSAM catalogs for the data sets 
are lost and can be replaced with access method services. For 
more information, see Access Method Services Reference. 


INCLUDE and EXCLUDE statements, discussed later in this chapter, 
can be used to add to or delete data sets from the group, if 
CVOL is specified. 


MOVE DSGROUP operations cause the catalog to be updated 
automatically unless UNCATLG 1s Specified. 


The format of the MOVE DSGROUP statement is: 


[label] MOVE DSGROUPE=name] 

» [O=device=list 
[,CVOL=device=serial] 
[»PASSWORD] 
[,UNCATLG] 
[,TODD=ddname] 
[,UNLOAD] 

[,COPYAUTH] 





COPY DSGROUP Statement 


The COPY DSGROUP statement is used to copy groups of data sets 
whose names are partially qualified by one or more identical 
names. The data sets may be cataloged on several catalogs (05S 
CVOL, integrated catalog facility or VSAM). Only data sets that 
can be copied with COPY DSNAME or COPY PDS can be copied with 
COPY DSGROUP. Data set groups to be copied must reside on DASD 
volumes. 


INCLUDE and EXCLUDE statements, discussed later in this chapter, 
can be used to add to or delete data sets from the group, if 
CVOL is specified. 


The source data sets remain cataloged unless UNCATLG or CATLG is 
specified without the RENAME and FROM parameters. 
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The format of the COPY DSGROUP statement is: 


[label] COPY DSGROUP[=name] 


» TO=device=list 

[,CVOL=device=serial] 

[,PASSWORD] 
_[,UNCATLG] 

[,CATLG] 

[,TODD=ddname] 

[,»UNLOAD] 

[,COPYAUTH] 





MOVE PDS Statement 


The MOVE PDS statement is used to move partitioned data sets. 
When used in conjunction with INCLUDE, EXCLUDE, REPLACE, or 
SELECT statements, the MOVE PDS statement can be used to merge 
selected members of several partitioned data sets or to delete 
members. 


If IEHMOVE is used to allocate space for an output partitioned 
data set, the MOVE PDS statement can be used to expand a 
partitioned directory. 


If the receiving volume contains a partitioned data set with the ee 
eee the two data sets are merged. The source data set is 
scratched. . 


MOVE PDS causes the appropriate catalog to be updated 
automatically unless UNCATLG/FROM is specified. 


The format of the MOVE PDS statement is: 


PDS=name 

» TO=device=serial |llist 
[,{FROM=device=serial |CVOL=device=serial}] 
[,EXPAND=nn] 

[,UNCATLG] 


[»RENAME=namel 
[»>FROMDD=ddname]l 


[,TODD=ddnamel 
[»UNLOAD] 
[,COPYAUTH] 
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COPY PDS Statement 


When used in conjunction with INCLUDE, EXCLUDE, REPLACE, or 
SELECT statements, the COPY PDS statement can be used to merge 
selected members of several partitioned data sets or to delete 
members. 


( The COPY PDS statement is used to copy partitioned data sets. 


If ITIEHMOVE is used to allocate space for an output partitioned 
data set, the COPY PDS statement can be used to expand a 
partitioned directory. 


If the receiving volume already contains a partitioned data set 
with the same name, the two are merged. 


The source partitioned data set remains cataloged unless UNCATLG 
or CATLG is specified without the RENAME and FROM parameters. 


The format of the COPY PDS statement is: 


[label] COPY PDS=name 
» TO=device=serialllist 
[,{FROM=device=serial] |CVOL=device=serial}] 
C,>EXPAND=nn]l 
{ »UNCATLG] 
[,CATLG] 


C,RENAME=name]l 
[,FROMDD=ddnamel 
[,TODD=ddnamel 
[» UNLOAD] 
[,>COPYAUTH] 





MOVE CATALOG Statement 


The MOVE CATALOG statement is used to move the entries of an OS 
CVOL (SYSCTLG data set) without moving the data sets associated 
with those entries. Certain entries can be excluded from the 
operation by means of the EXCLUDE statement. If the receiving 
volume already contains an OS CVOL, the source OS CVOL entries 
are merged with it. 
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The format of the MOVE CATALOG statement is: 








fo 
[label] MOVE CATALOGE=namel a J 
TO=device=serial /list ~ 
[,{FROM=device=serial |CVOL=device=serial}1 
[,>FROMDD=ddname] 
[,TODD=ddname] 
[UNLOAD] 
| [»COPYAUTH] 
: 
| 
COPY CATALOG Statement 
The COPY CATALOG statement is used to copy the entries of an OS 
CVOL CSYSCTLG data set) without copying the data sets associated 
with those entries. Certain entries can be excluded from a copy 
operation with the EXCLUDE statement. If the. receiving volume 
already contains an OS CVOL, the source OS CVOL is merged with 
2 i oe 
The format of the COPY CATALOG statement is: 
CATALOG[E=namel 
» TO=device=serial |list 
[,fFROM=device=serial |CVOL=device=serial}l 
[»FROMDD=ddnamel] 
[-» TODD=ddname]l 
[,UNLOAD] 
[,COPYAUTH] 
MOVE VOLUME Statement 
The MOVE VOLUME statement is used to move all the data sets 
residing on a specified volume. Any catalog entries associated 
with the data sets remain unchanged. Data sets to be moved must 
reside on DASD volumes. 
q * 
a 
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The format of the MOVE VOLUME statement is: 


VOLUME=device=serial 
» TOAdevice=list 
[,PASSWORD] 


[, TODD=ddnamel 


[,UNLOAD] 
[,COPYAUTH] 





COPY VOLUME Statement 


The COPY VOLUME statement is used to copy all the data sets 
residing on a specified volume. Any catalog entries associated 
with the data sets remain unchanged. Data sets to be copied 
must reside on DASD volumes. 


If CATLG and CVOL are specified, error messages indicating that 
an inconsistent index structure exists are issued when the 
source SYSCTLG data set entries are merged into the OS CVOL on 
the receiving volume. (CBecause the SYSCTLG data set is the last 
to be copied, only those entries representing cataloged data 
sets not residing on the source volume are copied into a 
receiving volume's SYSCTLG data set; entries representing all 
data sets residing on the source volume have already been made 
in the receiving SYSCTLG data set.) 


The format of the COPY VOLUME statement is: 


[label] COPY VOLUME=device=serial 
» TO=device=list 
[,PASSWORD] 
[,CATLG] 


{,TODD=ddname] 
[,UNLOAD] 
[,COPYAUTH] 





INCLUDE Statement 


The INCLUDE statement is used to enlarge the scope of MOVE 
DSGROUP, COPY DSGROUP, MOVE PDS, or COPY PDS statements by 
including a member or a data set not explicitly defined in those 
statements. The INCLUDE statement follows the MOVE or COPY 
statement whose function it modifies. The record 
characteristics of the included partitioned data sets must be 
compatible with those of the other partitioned data sets being 
moved or copied. Any number of INCLUDE statements can modify a 

seser MOVE or COPY statement. For a partitioned data set, the INCLUDE 
( statement is invalid when data is unloaded or when unloaded data 

is moved or copied. For DSGROUP operations, INCLUDE is invalid 

al ete hag has been specified on the MOVE/COPY DSGROUP control 
statement. 
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EXCLUDE Statement 





SELECT Statement 


The format of the INCLUDE statement is: 


INCLUDE DSNAME=name 


[,»>MEMBER=membername]l 
[,{FROM=device=list|]CVOL=device=serial}] 





The EXCLUDE statement is used to restrict the scope of MOVE 
DSGROUP, COPY DSGROUP, MOVE PDS, COPY PDS, MOVE CATALOG, or COPY 
CATALOG statements by excluding a specific portion of data 
defined in those statements. 


Partitioned data set members excluded from a MOVE PDS operation 
cannot be recovered (the source data set 1S scratched). Any 
Cee of EXCLUDE statements can modify a MOVE PDS or COPY PDS 
statement. 


Source data sets or OS CVOL entries excluded from a MOVE DSGROUP 
or MOVE CATALOG operation remain available. Only one EXCLUDE 
statement can modify a MOVE DSGROUP, COPY DSGROUP, MOVE CATALOG, 
or COPY CATALOG statement. The EXCLUDE statement is invalid 
when data is unloaded or when unloaded data is moved or copied. 
The EXCLUDE statement is invalid for a DSGROUP operation unless 
CVOL is specified on the MOVE/COPY DSGROUP control statement. 


The format of the EXCLUDE statement is: 


[label] EXCLUDE CDSGROUP=name | MEMBER=membername} 


The SELECT statement is used with the MOVE PDS or COPY PDS 
statement to select members to be moved or copied, and to 
optionally rename these members. The SELECT statement cannot be 
used with either the EXCLUDE or REPLACE statement to modify the 
same MOVE PDS or COPY PDS statement. The SELECT statement is 
invalid when data is unloaded or when unloaded data is moved or 
copied. Because the source data set is scratched, members not 


selected ina MOVE PDS operation cannot be recovered. 


The format of the SELECT statement is: 


Clabel] SELECT {CMEMBER=(namel>»namel...)| 
MEMBER=( (name,newnameJ[, (name»ynewname)1...) 
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| 








REPLACE Statement 





The REPLACE statement is used with a MOVE PDS or COPY PDS 
statement to exclude a member from the operation and replace it 
with a member from another partitioned data set. The new member 
must have the same name as the old member and must possess 
compatible record characteristics. Any number of REPLACE 
statements can modify a MOVE PDS or COPY PDS statement. The 
REPLACE statement is invalid when data is unloaded or when 
unloaded data 1s moved or copied. 


The format of the REPLACE statement is: 


[label] REPLACE DSNAME=name 
»MEMBER=name 
[,{FROM=device=serial |CVOL=device=serial}l] 









Parameters 


CATALOG 






CATLG 


Applicable 
Control 
Statements 


MOVE CATALOG| CATALOGE=namel 
COPY CATALOG 


COPY DSNAME 
COPY DSGROUP 
COPY PDS 

COPY VOLUME 






















Description of Parameters 


specifies the OS CVOL entries to be moved or 
copied. If name is not coded, all entries in 
the OS CVOL are moved or copied. If name is 
coded, all OS CVOL entries whose names are 
qualified by this name are moved or copied. If 
the name is a fully qualified data set name, 
(for example, AAA.BBB.CC), only the OS CVOL 
entry that corresponds to that data set 1s moved 
or copied. 





CATLG 
specifies that the copied data set(s) is Care) 
to be cataloged as described below. 


1. If the CVOL parameter is omitted, the 
cataloging is done in the integrated catalog 
facility or VSAM master/JOBCAT/STEPCAT 
catalog. 


2. If the RENAME and FROM parameters are 
omitted, the source data set(s) entry is 
deleted from the appropriate catalog to 
permit the copied data set(s) to be 
recataloged. 


3. If the CVOL parameter is specified, the 
cataloging 1s done in the OS CVOL on the 
receiving DASD volume. If an OS CVOL does 
not exist on the receiving DASD volume, one 
1s created. 
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Applicable 
Control 
Statements 








Parameters 
COPYAUTH 













DSNAME 
COPY DSNAME 
MOVE DSGROUP 
COPY DSGROUP 
MOVE PDS 

COPY PDS 

MOVE CATALOG 
COPY CATALOG 
MOVE VOLUME 
VOLUME 


MOVE DSNAME 
COPY DSNAME 
MOVE PDS 
COPY PDS 
INCLUDE 
REPLACE 





































DSGROUP 
DSGROUP 




























DSGROUP 





EXCLUDE 
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Description of Parameters. 
COPYAUTH 


CVOLEdevice=serial 


CVOL=device=serial 


CVOL=device=serial 


DSGROUP=name 


DSGROUP=name 











specifies that the receiving gate set is to be 
given the same access list as the input data 
set, if the input data set is RACF protected and 
the output data set is not preallocated. 













specifies the device type and serial number of 
the OS CVOL on which the search for the data set. 
is to begin. If the CVOL or FROM parameter is 
omitted, the data set is assumed to be cataloged 
in the integrated catalog facility or VSAM 
master/JOBCAT/STEPCAT catalog. 








FROM and CVOL should never appear in the same 
utility control statement. 








specifies the device type and serial number of 
the OS CVOL on which the search for the data 
set(s) is to begin. If the CVOL parameter is 
omitted, the data set(s) is assumed to be 
cataloged in the integrated catalog facility or 
VSAM master/JOBCAT/STEPCAT catalog. 






specifies the device type and serial number of 
the volume from which the SYSCTLG data set is to 
be moved or copied. If the CVOL or FROM 
parameter is omitted, the SYSCTLG data set to be 
moved or copied 1s assumed to reside on the 
system residence volume. 


FROM and CVOL should never appear in the same 
utility control statement. 





specifies the cataloged data set(s) to be moved 
or copied. If name is a fully qualified data 
set name, only that data set 1s not moved or 
copied. If name is one or more qualifiers, but 
not fully qualified, all data sets whose names 
are qualified by name are moved or copied. If 
name 1s omitted, all data sets whose names are 
ao era the searched catalog are moved or 
copied. | 





















Specifies the cataloged data set(s) or the 
catalog entry(Cies) to be excluded in a MOVE/COPY 
DSGROUP or CATALOG operation. If used in 
conjunction with MOVE/COPY DSGROUP, all 
cataloged data sets whose names are qualified by 
Name are excluded from the operation. If used 
in conjunction with MOVE/COPY CATALOG, all 
catalog entries whose names are qualified by 
Name are excluded from the operation. 





The CVOL parameter must be specified if a 
MOVE/COPY DSGROUP operation is being performed. 
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Parameters 
DSNAME 


EXPAND 


Applicable 
Control 

Statements 
MOVE DSNAME 
COPY DSNAME 


INCLUDE 


REPLACE 


MOVE PDS 
COPY PDS 





Description of Parameters 


DSNANE=name 
specifies the fully qualified name of the data 
set to be moved or copied. 


DSNAMNE=name 
specifies the fully qualified name of a data 
set. If used in conjunction with MOVE/COPY 
DSGROUP, the named data set is included in the 
group. If used in conjunction with MOVE/COPY 
PDS, either the named partitioned data set or a 
member of it Cif the MEMBER parameter 18 
specified) is included in the operation. 


DSNAME=name 
specifies the fully qualified name of the 
partitioned data set that contains the 
replacement member. 


EXPAND=nn 
specifies the decimal number Cup to 99) of 
256-byte records to be added to the directory of 
the specified partitioned data set. For COPY, 
EXPAND cannot be specified if space is 
previously allocated. For MOVE, EXPAND will be 
ignored if space is previously allocated. 
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Parameters 
FROM 


FROMDD 
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Applicable 
Control 
Statements 


MOVE DSNAME 
COPY DSNAME 
MOVE PDS 
COPY PDS 
INCLUDE 
REPLACE 
MOVE CATALOG 
COPY CATALOG 


DSNAME 
DSNAME 
PDS 

PDS 
CATALOG 
CATALOG 





Description of Parameters | 


FROM=device=listI|serial 
specifies the unit address or device type and 
serial number(s) of the volume(s) on which the 
data set resides if it is not cataloged. If the 
data set is cane ogee FROM should not be 
specified. 


When FROM is to refer to a specific device, code 
the unit address in the device parameter, in 
place of device type. 


The serial subparameter applies to PDS and 
CATALOG operations. The list subparameter 
applies to DSNAME operations, but may also be 
used when referring to an unloaded PDS residing 
on more than one DASD or tape volume, and when 
referring to an unloaded OS CVOL residing on 
more than one tape volume. 


When FROM is used in conjunction with a MOVE, 
DSNAME/PDS operation, the catalog will not be 
updated. When FROM is used in conjunction with 
a MOVE/COPY CATALOG operation, it specifies 
where an unloaded version of the OS CVOL 
resides. 


When FROM refers to a tape device and the data 


set to be retrieved is not the first on the 
volume, the serial subparameter must be enclosed 
in parentheses and the volume serial number must 
be followed by the data set sequence number and 
separated from it by a comma, as follows: 
FROM=device=(Cserial,seqnumber ) 


If FROM or CVOL parameter is omitted from a 
MOVE/COPY DSNAME/PDS, INCLUDE or REPLACE 
operation, the data set 1s assumed to be 
cataloged in the integrated catalog facility or 
VSAM master/JOBCAT/STEPCAT catalog. If the FROM 
or CVOL parameter is omitted from a MOVE/COPY 
CATALOG operation, the SYSCTLG data set to be 
moved or copied is assumed to reside on the 
system residence volume. 


FROM and CVOL should never be specified on the 
same utility control Sco enon. 


FROMDD=ddname 
specifies the name of the DD statement from 
which DCB and LABEL information Cexcept data set 
sequence number), for input data sets on tape 
volumes, can be obtained. When FROMDD is used 
in conjunction with a MOVE/COPY PDS/CATALOG 
operation, the tape data set must be an unloaded 
version of a partitioned data set or an unloaded 
version of an OS CVOL. The FROMDD operand can 
be omitted, provided the data set has standard 
labels and resides on a 9-track tape volume. 
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a Applicable 
| Centrol 
oe Parameters Statements 


. MEMBER INCLUDE 
REPLACE 
EXCLUDE 
SELECT 

| PASSWORD DSGROUP 

| DSGROUP 

| VOLUME 

VOLUME 


aa 
RENAME DSNAME 
DSNAME 

PDS 

PDS 


TO DSNAME 

DSNAME 
DSGROUP 
DSGROUP 
VOLUME 
VOLUME 
PDS 
PDS 
CATALOG 

| CATALOG 





Description of Parameters 


MEMBER=membername 
specifies the name of one member in the 
partitioned data set named in the DSNAME 
parameter on the INCLUDE/REPLACE statement. 
When coded on an INCLUDE statement, the named 
member is merged with the partitioned data set 
being moved or copied. When coded on a REPLACE 
statement, the member replaces an equally named 
member in the partitioned data set being moved 
or copied. Regardless of the operation, neither 
the partitioned data set containing the named 
member nor the member is scratched. 


MEMBER=membername 
specifies the name of a member to be excluded 
from a MOVE/COPY PDS operation 


[»(name,newname)]... )} 

specifies the names of the members to be moved 
or copied by a MOVE/COPY PDS operation, and, 
optionally, new names to be assigned to the 
members. - 


PASSWORD 
specifies that password protected data sets are 
included in the operation. This is not VSAM 
password protection, but the OS password scheme. 






Default: Only data sets that are not protected 
are copied or moved. 


PDS=name 
specifies the fully qualified name (that is, the 
name with all its qualifiers, if any) of the 
partitioned data set to be moved or copied. 


RENAME=name 
specifies that the data set is to be renamed, 
and indicates the new name. 


TO=device=list 
specifies the device type and volume serial 
number of the volume or volumes to which the 
specified group of data sets is to be moved or 
copied. 


TO=device=serial | list 


specifies the device type and volume serial 
number of the volume to which the partitioned 
data set or OS CVOL entry is to be moved or 
copied. The list parameter may be used when 
unloading a partitioned data set that must span 
tape volumes. 
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Parameters 





UNCATLG 


UNLOAD 


VOLUME 





| TODD 


Applicable 
Control | 
Statenents Description of Parameters 





DSNAME TODD=ddname 
specifies the name of a DD statement from which 
DCB Cexcept RECFM, BLKSIZE and LRECL) and LABEL 
Cexcept data set sequence number) information 
for output data sets on tape volumes can be 
obtained. 


When TODD is used in conjunction with a | 
MOVE/COPY DSNAME/DSGROUP/VOLUME operation, it 
describes the mode and label information to be 
used when creating output data sets on tape 
volumes. RECFM, BLKSIZE, and LRECL information, 
if coded, is ignored. ) , 


When UNLOAD is specified, or when TODD is used 
in conjunction with a MOVE/COPY PDS/CATALOG 
operation, it describes the mode and label 
information to be used when creating unloaded 
versions of data sets on tape volumes. RECFM, 
BLKSIZE, and LRECL information, if coded, must 
specify CRECFM=FB, BLKSIZE=800, LRECL=80). 


TODD must be specified in the control statement 
when an expiration data CEXPDT) or retention 
period CRETPD) is to be created or changed. 


The TODD parameter can be omitted for 9-track 
tapes with standard labels and default density 
for the unit type specified. 


DSNAME UNCATLG 

DSNAME specifies that the catalog entry pertaining to 

DSGROUP the source partitioned data set is to be 

DSGROUP removed. This parameter should be used only if 

PDS the source data set is cataloged. If the volume 

PDS is identified by FROM, UNCATLG is ignored. 
Alias entries in integrated catalog facility or 
VSAM catalogs for the source data sets are lost 
and can be replaced with access method services 
if the data sets are later cataloged. For more 
information, see Access Method Services 
Reference. For a MOVE operation, UNCATLG 
inhibits cataloging of the output data set. 


DSNAME UNLOAD 

DSNAME specifies that the data set is to be unloaded to 
DSGROUP the receiving volume(s). 

DSGROUP 

PDS 

PDS 

VOLUME 

VOLUME 

CATALOG 

CATALOG 


VOLUME VOLUNE=device=serial 
VOLUME specifies the device type and volume serial 
number of the source volume. 
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TEHMOVE EXAMPLES 


The following examples illustrate some of the uses of ITEHMOVE. 
Figure 130 can be used as a quick-reference guide to ITEHMOVE 





examples. 
examples that follow. 


Data Set 


Operation Organization 


MOVE Sequential 


ae 
ae 
| 
a 
“ 
Disk and Tape 
Disk and Tape 


Disk and Tape 


Tape and Disk 


wa 


COPY Sequential 


MOVE Partitioned 


MOVE Volume 


MOVE Partitioned 


MOVE Partitioned 


MOVE Sequential 


MOVE Sequential 


COPY Sequential 


COPY Partitioned 


MOVE 


MOVE OS CVOL 


Figure 130 (Part 1 of 2). 


Device Comments 











The numbers in the "Example™ column refer to the 


Example 


Source volume is 
demounted after job 
completion. Two 


mountable disks. 


Three cataloged 
sequential data sets 
are copied. The 
disks are mountable. 


A partitioned data 
set 1s moved; a 
member from another 
PDS 1s merged with 
it. 


A volume of data 
sets 1s moved to a 
disk volume. 


A data set 18S moved 
to a volume on which 
space was previously 
allocated. 


Three data sets are 
moved and unloaded 
to a volume on which 
space was previously 
allocated. 


A sequential data 
set is unloaded to 
an unlabeled 9-track 
tape volume. 


Unloaded data sets 
are loaded from a 
single volume. 


Data sets are copied 


from separate source 
volumes. 


Unloaded data sets 
are loaded from 
unlabeled tape to a 
specific device. 









— 


~~ a ~“ ul -N WG NO al 
Nh aad © 


Data set group is 
moved. 


SYSCTLG data set (0S 
CVOL) is moved from 


one volume to 


another. Source OS 
CVOL is scratched. 


ITEHMOVE Example Directory 


IEHMOVE Program 















Data Set | 7 
Operation Crganization Device Comments Example 


MOVE OS CVOL Disk Selected OS CVOL 
entries are moved 
from one OS CVOL to 
another. 







Figure 130 CPart 2 of 2). IEHMOVE Example Directory 


IEHMOVE EXAMPLE 1 


Examples that use disk or tape in place of actual device numbers 
must be changed before use. See "DASD and Tape Device Support" 
on page 3 for valid device number notation. 


In this example, three sequential data sets (SEQSET], SEQSET2, 
and SEQSET3) are moved from a disk volume to three separate disk 
volumes. Each of the three receiving volumes is mounted when it 
is required by IEHMOVE. The source data sets are not cataloged. 
Space is allocated by IEHMOVE. 


//MOVEDS JOB... 
// EXEC PGM=IEHMOVE 
//SYSPRINT DD SYSOUT=A 
“/SYSUT1 DD UNIT=disk, VOLUME=SER=333333,DISP=OLD 
//DDI1 DD UNIT=disk, VOLUME=SER=111111,DISP=OLD 
DD UNIT=(disk,,DEFER),DISP=OLD, 
VOLUME=CPRIVATE, ,SER=(222222)) 


DD VOLUME=(PRIVATE, RETAIN, SER=(444444)), 
UNIT=disk, DISP=OLD 
//SYSIN DD xX 
MOVE DSNAME=SEQSET1, TO=disk=222222, FROM=disk=444444 
MOVE DSNAME=SEQSET2, TO=disk=222333, FROM=disk=444444 
MOVE DSNAME=SEQSET3, TO=disk=222444, FROM=d1isk=444444 





The control statements are discussed below: 


e SYSUT1 DD defines the disk device that is to contain the 
work data set. 


6 DD1 DD defines the system residence device. 


e DD2 DD defines the mountable device on which the receiving 
volumes will be mounted as they are required. 


e DD3 DD defines a mountable device on which the source volume 
is mounted. Because the RETAIN subparameter is included, 
the volume remains mounted until the job has completed. 


e SYSIN DD defines the control data set, which follows in the 
input stream. 


e MOVE moves the source data sets to volumes 222222, 222333, 
and 222444, respectively. The source data sets are 
scratched. 
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IEHMOVE EXAMPLE 2 


TEHMOVE EXAMPLE 3 


In this example, 
volume. 
updated. 





//COPYPDS JOB 


oe, EXEC PGM= 


three cataloged data sets are copied to a disk 
Space is allocated by IEHMOVE. The catalog is not 
The source data sets are not scratched. 


ITEHMOVE 


Z/SYSPRINT DD SYSOUT=A 


4/SYSUTI DD UNIT= 
//DD1 DD UNIT= 
//DD2 DD UNIT= 


//DD3 DD UNiT= 
S/SYSIN DD xX 
COPY DSNAME=SEQSET1, TO=disk=333333 
COPY DSNAME=SEQSET3, TO=disk=333333 
COPY DSNAME=SEQSET4, TO=disk=333333 


disk, VOLUME=SER=222222,DISP=OLD 
disk, VOLUME=SER=111111,DISP=OLD 
disk, VOLUME=SER=222222, DISP=OLD 
disk, VOLUME=SER=333333,DISP=OLD 





The control statements are discussed below: 


SYSUT1 DD defines 
data set. 


the device that is to contain the work 


DD1 DD defines the system residence device. 


DD2 DD defines a mountable device on which the source volume 


is mounted. 


DD3 DD defines a mountable device on which the receiving 


volume is mounted. 


SYSIN DD defines the control data set, which follows in the. 


input stream. 


COPY copies the source data sets onto volume 333333. 


In this example, a partitioned data set CPARTSET1) 18S moved toa 


disk volume. 


In addition, a member CPARMEM3) from another 


partitioned data set CPARTSET2) is merged with the source 
members on the receiving volume. The source partitioned data 
set CPARTSET1) is scratched. Space is allocated by IEHMOVE. 


//MOVEPDS JOB 
“7 
77SYSPRINT DD SYSO 


7/73SYSUT1 DD UNIT= 
//DD1 DD UNIT= 
//DD2 DD UNIT= 


//YD3 DD UNIT= 

//DD4 DD UNIT= 
S/SYSIN DD xX 
MOVE PDS=PARTSET1, TO=disk=222333, FROM=disk=222111 

INCLUDE DSNAME=PARTSET2,MEMBER=PARMEM3, FROM=disk=222222 


7% 


EXEC PGM= 
U 


ITEHMOVE 

TSA 

disk, VOLUME=SER=333000,DISP=OLD 
disk, VOLUME=SER=111111,DISP=OLD 
disk, VOLUME=SER=222111,DISP=OLD 
disk, VOLUME=SER=222222, DISP=OLD 
disk, VOLUME=SER=222333,DISP=O0LD 





The control statements are discussed below: 


SYSUT1 DD defines 
work data set. 


the disk volume that is to contain the 
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ITEHMOVE EXAMPLE 4 


In t 


volu 
from 


to t 


~ ITEHM 


comp 


// 
ee A 
4/7 
f/f 
SS 


ff 
// 
// 


7% 


The 


DD1 DD defines the system residence device. 


The DD2, DD3, and DDG DD statements define mountable devices 


that are to contain the two source volumes and the receiving 
volume. : 2 


SYSIN DD defines the control data set, which follows in the 
input stream. 


MOVE defines the source partitioned data set, the volume 
that contains it, and its receiving volume. 


INCLUDE includes a member from a second partitioned data set 
in the operation. 


his example, a volume of data sets is moved to a disk 

me. All data sets that are successfully moved are scratched 
the source volume; however, any catalog entries pertaining 
hose data sets are not changed. Space is allocated by 

ae The work data set is deleted when the job step is 
leted. 


MOVEVOL JOB... 
EXEC PGM=IEHMOVE 

SYSPRINT DD SYSOUT=A 
SYSUT]1 DD UNIT=disk, VOLUME=SER=222222,DISP=OLD 
DDI DD UNIT=disk, VOLUME=SER=111111,DISP=OLD 
DD2 DD UNIT=disk, VOLUME=SER=222222,DISP=OLD 
DD3 DD UNIT=disk, VOLUME=SER=333333,DISP=O0LD 
SYSIN DD xX 

MOVE VOLUME=disk=333333,TO=disk=222222,PASSWORD 





control statements are discussed below: 


SYSUT1 DD defines the device that is to contain the work 
data set. The work data set is removed from the receiving 
volume when the job step is completed. 


DD1 DD defines the system residence device. 


DD2 DD defines tie Hountable device on which the receiving 
volume is mounted. 


DD3 DD defines a mountable device on which the source volume 
is mounted. 


SYSIN DD defines the control data set, which follows in the 
input stream. 


MOVE specifies a move operation for a volume of data sets 
and defines the source and receiving volumes. This 
statement also indicates that password-protected data sets 
are included in the operation. 
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TEHMOVE EXAMPLE 5 


In this example, a partitioned data set is moved to a disk 

volume on which space has been previously allocated for the data 
set. 
deleted when the job step is completed. 


is 
of 
// 
A 
// 
// 
// 
// 
// 


4/ 
// 


SX 





The source data set is scratched. The work data set is 


ALLOCATE JOB 
EXEC PGM=IEFBR14 
SET1 DD DSNAME=PDSSET1,UNIT=disk, DISP=C(NEW, KEEP 
VOLUME=SER=222222,SPACE=C(TRK,(100,10,190 
DCB=CRECFM=FB,LRECL=80, BLKSIZE=2000) 
EXEC PGM=ITEHMOVE 
SYSPRINT DD SYSOQUT=A 
SYSUT1 DD UNIT=disk, VOLUME=SER=222222,DISP=OLD 
DDI DD UNIT=disk, VOLUME=SER=111111,DISP=OLD 
DD2 DD UNIT=disk, VOLUME=SER=222222,DISP=OLD 
DD3 DD UNIT=disk, VOLUME=SER=333333,DISP=OLD 
SYSIN DD xX 
MOVE PDS=PDSSET1, TO=disk=222222, FROM=disk=333333 


); 
dd; 


The IEFBR1LG job step is used to allocate space for data set 
PDSSET1 on a disk volume. 


The control statements are discussed below: 


SYSUT1 DD defines the device that is to contain the work 
data set. The data set is removed at the completion of the 
program. 

DD1 DD defines the system residence device. 


DD2 DD defines the device on which the receiving volume is 
to be mounted. 


DD3 DD defines a mountable device on which the source volume 
1s mounted. 


SYSIN DD defines the control data set, which follows in the 
input stream. 


MOVE specifies a move operation for the partitioned data set 
PDSSET1 and defines the source and receiving volumes. 
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ITEHMOVE EXAMPLE 6 7 
In this example, three partitioned data sets are moved from ye 
three separate source volumes to a disk volume. The source data XN 
set PDSSET3 is unloaded. (The record size exceeds the track 
capacity of the receiving volume.) The work data set is deleted 
when the job step is completed. 


//ALLOCATE JOB... 

11 EXEC PGM=IEFBR14 

//SET1 DD DSNAME=PDSSET1,UNIT=disk, DISP=(NEW, KEEP), 
1/ VOLUME=SER=222222, SPACE=(TRK,(50,10,5)), 
// DCB=(RECFM=FB, LRECL=80, BLKSIZE=1600) 
//SET2 DD DSNAME=PDSSET2, UNIT=disk, DISP=(NEW, KEEP), 
1/ VOLUME=SER=222222, SPACE=(TRK,(25,5,5)), 
11 DCB=(RECFM=F, LRECL=80, BLKSIZE=80) 

//SET3 DD DSNAME=PDSSET3,UNIT=disk, DISP=(NEW, KEEP), 
11 VOLUME=SER=222222, SPACE=(TRK,(25,5)), 

41 DCB=(RECFM=U, BLKSIZE=5000) 

11 EXEC PGM=IEHMOVE 


//SYSPRINT DD SYSOUT=A 
4/SYSUTL DD UNIT=disk,VOLUME=SER=222222,DISP=OLD 
//DD1 DD UNIT=disk, VOLUME=SER=111111,DISP=O0LD 
DD UNIT=(disk,,DEFER),DISP=OLD, 
VOLUME=CPRIVATE, ,SER=(333333)) 
DD UNIT=disk, VOLUME=SER=222222,DISP=OLD 
x 


DD 
PDS=PDSSET1, TO=disk=222222, FROM=disk=333333 
MOVE PDS=PDSSET2, TO=disk=222222, FROM=disk=222222 
MOVE PDS=PDSSET3, TO=disk=222222, C 
FROM =disk=444444, UNLOAD 





The IEFBR14 job step is used to allocate space for the 
partitioned data sets PDSSET1, PDSSET2, and PDSSET3 on the 
receiving volume. The SPACE parameter in the SET3 DD statement 
allocates space for a sequential data set. This is necessary to 
successfully unload the partitioned data set PDSSET3. 


For a discussion of estimating space allocations, see Data 


Administration Guide. 

The DCB attributes of PDSSET3 are: 
DCB=(RECFM=U, BLKSIZE=5000) 

The unloaded attributes are: 
DCB=CRECFM=FB,LRECL=80, BLKSIZE=800) 

The control statements are discussed below: 


® SYSUT1 DD defines the device that is to contain the work 
data set. 


e DD1 DD defines the system residence device. 


e DD2 DD defines a mountable device on which the source 
volumes are mounted as they are required. 


e DD3 DD defines a mountable device on which the receiving 
volume is mounted. 


@ SYSIN DD defines the control data set, which follows in the 
input stream. 





6 MOVE specifies move operations for the partitioned data sets 
and defines the source and receiving volumes for each data 
set. 
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IEHMOVE EXAMPLE 7 


( In this example, a sequential data set is unloaded onto a 
He 9-track, unlabeled tape volume (800 bits per inch). The work 


data 
Job 


// 
1/ 
// 
// 
// 
// 


// 
// 


The 


set resides on the source volume and is deleted when the 
step is completed. 


UNLOAD JOB... 
EXEC PGM=IEHMOVE 
SYSPRINT DD SYSOUT=A 
SYSUTI DD UNIT=disk, VOLUME=SER=222222,DISP=OLD 
DDI DD UNIT=disk, VOLUME=SER=111111,DISP=OLD 
DD2 DD UNIT=disk, VOLUME=SER=222222,DISP=O0LD 
TAPEOUT DD UNIT=tape, VOLUME=SER=SCRTCH, DISP=OLD, 
DCB=(DEN=2,RECFM=FB,LRECL=80, BLKSIZE=800), 
- LABEL=C€,NL) 
X 


MOVE DSNAME=SEQSET1, TO=tape=SCRTCH, 
FROM=disk=222222, TODD=TAPEOUT 





control statements are discussed below: 


SYSUT1] DD defines the device that is to contain the work 
data set. 


DD1 DD defines the system residence device. 


DD2 DD defines a mountable device on which the source volume 
1s mounted. 


TAPEOUT DD defines a mountable device on which the receiving 
tape volume is mounted. This statement also provides label 
and mode information. 


SYSIN DD defines the control data set, which follows in the 
input stream. 


MOVE moves the sequential data set SEQSET1 from a disk 
volume to the receiving tape volume. The data set is 
unloaded. The TODD parameter in this statement refers to 
the TAPEOUT DD statement for label and mode information. 
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TEHMOVE EXAMPLE 8 
In this example, three unloaded sequential data sets are loaded oy 
from a labeled, 7-track tape volume (556 bits per inch) toa re 
disk volume. Space is allocated by IEHMOVE. The example 
assumes that the disk volume is capable of supporting the data 
sets in their original forms. | 


JOB 
EXEC PGM=IEHMOVE 
//SYSPRINT DD SYSOUT=A 
S/SYSUTA DD UNIT=disk, VOLUME=SER=222222,DISP=OLD 
//D)D1 DD UNIT=disk, VOLUME=SER=111111,DISP=OLD 
//DD2 DD UNIT=disk, VOLUME=SER=222222, DISP=O0LD 
//VTAPESETS DD UNIT=34620, 
// VOLUME=SER= 001234, DISP=OLD, 
// LABEL=(C1,5L),DCB= (DEN= l; TRTCH=C) 
S/SYSIN DD xX 
MOVE DSNAME=UNL DSET1, TO=disk=222222, 
FROM=3420= (001234, 1),FROMDD= TAPESETS 
MOVE DSNAME=UNLDSET2,TO= disk= 222222, 
FROM=3420=( 001234, 2), FROMDD=TAPESETS 
MOVE DSNAME=UNLDSET3, TO=disk=222222, 
FROM=3420=(0012349,3),FROMDD=TAPESETS 





The control gts enente are discussed below: 


e SYSUT1 DD defines the device that is to contain the work 
data set. wo 


e DD1 DD defines the system residence device. 


e DD2 DD defines a mountable device on which the receiving 
volume 1s mounted. 


e TAPESETS DD defines a mountable device on which the source 
tape volume is mounted. DCB information is provided in this 
statement. 


@ SYSIN DD defines the control data set, which follows in the 
input stream. 


e MOVE moves the unloaded data sets to the receiving volume. 


To move a data set from a tape volume that contains more than 
one data set, you must specify the sequence number of the data 
set in the list field of the FROM parameter on the utility 
control statement. 
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ITEHMOVE EXAMPLE 9 


TEHMOVE EXAMPLE 10 


TT TAT EVs emreRoersen: 





In this example, two sequential data sets are copied from 
separate source volumes to a disk volume. Space is allocated by 
ITEHMOVE. Only one 9-track tape unit is available for the 
operation. 


//DEFER JOB... 

// EXEC PGM=IEHMOVE 

//SYSPRINT DD SYSOUT=A | 

//SYSUT1 DD UNIT=disk, VOLUME=SER=222222,DISP=OLD 
//7DDI DD UNIT=cdask, VOLUME=SER=111111,DISP=OLD 
//DD2 DD UNIT=disk, VOLUME=SER=222222,DISP=OLD 


//TAPEL DD VOLUME=SER=001234,UNIT=tape, DISP=O0LD 
//TAPE2 DD VOLUME=SER=001235,UNIT=tape, DISP=O0LD 
“/SYSIN DD xX 
COPY DSNAME=SEQSET1, TO=disk=222222, 
FROM=3400=(001234,2), FROMDD=TAPE1 
COPY DSNAME=SEQSET9, TO=disk=222222, 
FROM=3400=(001235,4),FROMDD=TAPE2 





The control statements are discussed below: 


e SYSUT1 DD defines the volume that is to contain the work 


data set. 
e DD1 DD defines the system residence device. 
e DD2 DD defines a mountable device on which the receiving 


volume is mounted. 


e TAPE] DD defines a mountable device on which the first 
volume to be processed is mounted. The source data set is 
the second data set on the volume. 


e TAPE2 DD defines a mountable device on which the second 
volume to be processed is mounted when it 18S required. The 
source data set is the fourth data set on the volume. 


® SYSIN DD defines the control data set, which follows in the 
input stream. 


® COPY copies the second file of tape 001234 and the fourth 
file of tape 001235 to the receiving volume. 


To copy a data set from a tape volume that contains more than 
one data set, you must specify the sequence number of the data 
set in the list field of the FROM parameter on the utility 
control statement. 


In this example, three unloaded partitioned data sets residing 
on an unlabeled tape volume mounted on device 282 are copied to 
a 3380 volume mounted on device 191. 
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TEHMOVE EXAMPLE 11 


// 
// 
// 
“7 
1/7 
1/7 


4/ 


The 


Toc 
labe 
cont 
numb 


The unit address must appear in the device field of the FROM or 


TO p 
spec 


In t 
comp 
two 

ITEHM 
volu 


1/7 
of 


// 
f/f 
f/f 
// 
47 
1/7 
Af 


7X 


LOAD JOB... 
EXEC PGM=IEHMOVE 
SYSPRINT DD SYSOUT=A 
SYSUTL DD UNIT=191,VOLUME=SER=338000,DISP=OLD 
DDI DD UNIT=191,VOLUME=SER=338000,DISP=O0LD 
TAPEL] DD UNIT=282,VOLUME=SER=NLTAPE, DISP=OLD, 
LABEL=(€,NL), 


DCB=CRECFM=FB, LRECL=80, BLKSIZE=800) 


DD xX 
COPY PDS=DSETI,FROM=282=C(NLTAPE,1), 
TO0=191=338000,FROMDD=TAPEIL 
COPY PDS=DSET2,FROM=282=C(NLTAPE,2), 
TOQ=191=338000,FROMDD=TAPEL] 
COPY PDS=DSET3,FROM=282=(NLTAPE,3), 
TO=191=338000,FROMDD=TAPE1L 


SYSIN 





control statements are discussed below: 

SYSUT1 DD defines the work data set. 

DD1 DD defines the receiving volume. 

TAPE] DD defines the source data sets. They are, in the 
eo which they reside on the volume, DSET1, DSET2, and 


SYSIN DD defines the control data set, which follows in the 
input stream. 


COPY copies the unloaded partitioned data sets from the 
unlabeled tape to the receiving volume. 


opy data sets from an unlabeled tape, you must place a dummy 


l an the list field of the FROM parameter of the utility 
rol statement. Following this dummy label, the sequence 
er of the data set must also be included in the same field. 


arameter whenever you want to move from or copy to a 
ific device. 


his example, the cataloged data set group A.B.C—which 


rises data set A.B.C.X, A.B.C.Y, and A.B.C.2Z-—-1is moved from 


disk volumes onto a third volume. Space is allocated by 
OVE. The catalog is updated to refer to the receiving 
me. The source data sets are scratched. 


MOVEDSG JOB... 
EXEC PGM=IEHMOVE 

SYSPRINT DD SYSOUT=A 
SYSUTI DD UNIT=disk, VOLUME=SER=222222,DISP=O0LD 
DDI DD UNIT=disk, VOLUME=SER=111111,DISP=OLD 
DD2 DD UNIT=disk, VOLUME=SER=222222,DISP=O0LD 
DD3 DD UNIT=disk, VOLUME=SER=333333,DISP=OLD 
DD4 DD UNIT=disk, VOLUME=SER=444444, DISP=OLD 
SYSIN DD xX 

MOVE DSGROUP=A.B.C, TO=disk=222222 
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ITEHMOVE EXAMPLE 12 


The control statements are discussed below: 


e SYSUT1 DD defines the device that is to contain the work 


data set. 
® DD1 DD defines the system residence device. 
e DD2 DD defines a mountable device on which the receiving 


volume is mounted. 


® DD3 DD defines a mountable device on which one of the source 
volumes 1s mounted. 


e DDG DD defines a mountable device on which one of the source 
volumes 1s mounted. 


e SYSIN DD defines the control data set, which follows in the 
input stream. 


y MOVE moves the specified data sets to volume 222222. 


This example can be used to produce the same result without the 
use of the DDG DD statement, using one less mountable disk 
device. With DD3 and DDS, both of the source volumes are 
mounted at the start of the job. With DD3 only, the 333333 
volume 1s mounted at the start of the job. After the 333333 
volume is processed, the utility requests that the operator 
Heaelee the 444444 volume. In this case, the DD3 statement is 
coded: 


//DD3 DD UNIT=(Cdisk, , DEFER), DISP=OLD,VOLUME=C(PRIVATE,, 
// SER=(333333)) 


In this example, the SYSCTLG data set is moved from a mountable 
disk volume to another mountable disk volume. Space is 
allocated by IEHMOVE. The source OS CVOL is scratched from the 
first disk volume. 


//MOVECATI JOB... 

7 EXEC PGM=ITEHMOVE, PARM="POWER=3' 
Z/SYSPRINT DD SYSOUT=A 

A/SYSUTI DD UNIT=disk, VOLUME=SER=333333,DISP=OLD 


//DD1 DD UNIT=disk, VOLUME=SER=111111,DISP=OLD 
//DD2 DD UNIT=disk, VOLUME=SER=222222, DISP=OLD 
“/SYSIN DD xX 

MOVE CATALOG, TO=disk=222222,CVOL=disk=111111 


7% 
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The control statements are discussed below: 


* SYSUT1 DD defines the device that is to contain the work “ > 
data set. wo 
e DD1 DD defines the mountable device on which the source 


volume 1s mounted. 


e DD2 DD defines the mountable device on which the receiving 
volume is mounted. 


@ SYSIN DD defines the control data set, which follows in the 
input stream. 


e MOVE specifies the move operation and defines the source and 
receiving volumes. 


See "PARM Information on the EXEC Statement™ on page 354 for a 
description of the POWER PARM. 


TEHMOVE EXAMPLE 13 


In this example, the OS CVOL entries for data set group 
A.B.C—-which comprises the entries A.B.C.X, A.B.C.Y, and 
A.B.C.2Z—are moved from a SYSCTLG data set to a mountable disk 
volume. If no OS CVOL exists on the receiving disk volume, one 
is created; if an OS CVOL does exist, the specified entries are 
merged into it. Moved entries are uncataloged from the source 
CVOL. The work data set is deleted when the job step is 
completed. 


“//MOVECAT2 JOB... 

11 EXEC PGM=ITEHMOVE 

//SYSPRINT DD SYSOUT=A 

//SNSUTI DD UNIT=disk, VOLUME=SER=222222, DISP=OLD 


“/DD1 DD UNIT=disk, VOLUME=SER=111111,DISP=OLD 
//DD2 DD UNIT=disk, VOLUME=SER=222222,DISP=OLD 
7/7SYSIN DD xX 
MOVE CATALOG=A.B.C, TO=disk=222222,CVOL=disk=111111 


1X 





The control statements are discussed below: 


e SYSUT1 DD defines the device that is to contain the work 
data set. (Because IEHMOVE deletes the work data set at the 
completion of the program, it can be contained on the 
receiving volume, provided there is space for it.) 


® DD1 DD defines the mountable device on which the source 
volume is mounted. 


e DD2 DD defines the mountable device on which the receiving 
volume is mounted. 


e SYSIN DD defines the control data set, which follows in the 
input stream. 


e MOVE specifies a move operation for selected entries and 
defines the source and receiving volumes. 
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TEHPROGM is a system utility used to modify system control data 

and to maintain data sets at an organizational level. IEHPROGM 

ahaa only be used by those programmers locally authorized to 
Oo SO. 


ITEHPROGM can be used to: 





° Scratch a data set or a member. 

e Rename a data set or a member. 

e Catalog or remove catalog entries for a non-VSAM data set in 
an OS CVOL. 

e Build or delete an index or alias in an OS CVOL CSYSCTLG 
data set). 

e Connect or release two OS CVOLs. 

e aaa and maintain a generation data group index in an OS 

e Maintain data set passwords. 


SCRATCHING A DATA SET OR MEMBER 





IEHPROGM can be used to scratch the following from a DASD volume 
or volumes: 


e Sequential, ISAM, partitioned, or BDAM data sets 


® Members of a partitioned data set 
e Password-protected data sets 
e Data sets named by the operating system 


A data set 1s considered scratched when its data set control 
block is removed from the volume table of contents (VTOC) of the 
volume on which it resides; its space 1s made available for 
reallocation. 


A member is considered scratched when its name is removed from 
the directory of the partitioned data set in which it is 
contained. The space occupied by a scratched member 1s not 
available for reallocation until the partitioned data set 1s 
scratched or compressed. (When scratching a member of a 
partitioned data set, all aliases of that member should also be 
removed from the directory. ) 


IEHPROGM will not scratch the data set containing the index for 
an indexed VTOC. 


If RACF is active, ALTER authorization is required to scratch a 


RACF-defined data set, and UPDATE authorization 18S required to 
scratch a member of a partitioned data set. 
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RENAMING A DATA SET OR MEMBER 





IEHPROGM can be used to rename a data set or member that resides 
on a DASD volume. In addition, the program can be used to 
change any member aliases. | | 


Lf RACF is active, ALTER authorization is required to rename a 
data set. UPDATE authorization is required to rename a member 
of a partitioned data set. 


CATALOGING A DATA SET IN AN OS CVOL 


ITEHPROGM can be used to catalog a non-VSAM sequential, ISAM, 
partitioned, or BDAM data set in an OS CVOL or an integrated 
catalog facility catalog. The program catalogs a data set by 
generating an entry, containing the data set name and associated 
volume information, in the index of the OS CVOL. A valid TTR 
pointer is not placed in the DSCB until the first time the data 
set is referenced. 


The catalog function is used to catalog a non-VSAM data set in 
an OS CVOL that was not cataloged when it was created. 


ITEHPROGM can also delete OS CVOL, or integrated catalog facility 
catalog, entries for a non-VSAM data set by removing the data 
set name and associated volume information from the OS CVOL or 
the integrated catalog facility catalog. 


The cataloging function of IEHPROGM differs from a DISP=(€,CATLG) 
specification ina DD statement in that the DISP=(,CATLG) 
specification cannot catalog a data set on a volume other than 
the system residence volume unless the system residence volume 
1s properly connected to the other volume. (See "Connecting or 
Releasing Two OS CVOLsS" on page 388.) 


The “"uncataloging" function of IEHPROGM differs from a 
DISP=(€...,UNCATLG) specification ina DD statement in that the 
DISP=C€...,UNCATLG) specification cannot remove an entry from the 
SYSCTLG data set on a volume other than the system residence 
volume unless the two volumes are properly connected. 


You should not use the JEHPROGM CATLG/UNCATLG functions in place 
of DISP=(,CATLG) or DISP=(€,UNCATLG) in a multi-step job. Ifa 
data set is to be “"uncataloged"™ during termination of a step, 
use DISP=COLD,UNCATLG). 


BUILDING OR DELETING AN INDEX IN AN OS CVOL 


IEHPROGM can be used to build a new index in an OS CVOL or to 
delete an existing index. In building an index, the program 
automatically creates as many higher level indexes as are 
necessary to complete the specified structure. 


IEHPROGM can be used to delete one or more indexes from an index 
structure; however, an index cannot be deleted if it contains 
any entries. That is, it cannot be deleted if it refers toa 
lower level index or if it 1S part of a structure indicating the 
fully qualified name of an OS CVOL cataloged data set. 


Figure 131 on page 387 shows an index structure before and after 
a build operation. The left portion of the figure shows two 
data sets cataloged in an OS CVOL, A.Y.YY and A.B.X.XX, before 
the build operation. The right-hand portion of the figure shows 
the index structure after the build operation, which was used to 
build index A.B.C.D.E. Note in the left portion of the figure 
that index levels C and D do not exist before the build 
operation. These levels are automatically created when the 
level E index is built. 





When the level E index is subsequently deleted, the level C and 
D indexes are not automatically deleted by the program. To 
delete these index levels, delete: A.B.C.D.E, A.B.C.D, and 
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A.B.C, in that order. The level B index cannot be deleted 
because data set A.B.X.XX and the X level index are dependent 
( upon the level B index. 





Before build operation After build operation 


Figure 131. Index Structure Before and After an ITEHPROGM Build 
Operation 





BUILDING OR DELETING AN INDEX ALIAS IN AN OS CVOL 


( IEHPROGM can be used to assign an alternative name Calias) to 

hoe the highest level index of an OS CVOL or to delete an OS CVOL 
index alias previously assigned. An alias cannot, however, be 
assigned to the highest level of a generation data group index. 


Figure 132 shows an alias, XX, that is assigned to index A (a 
high level index). The cataloged data set A.B.C can be referred 
to as either A.B.C or XX.B.C. 












To 
SYSCTLG 
data set 










A.B.C. 
(XX.B.C.) 






Figure 132. Building an Index Alias Using IEHPROGM 
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CONNECTING OR RELEASING TWO OS CVOLS 


IEHPROGM can be used to connect an OS CVOL to a second OS CVOL “oo 
by placing an entry into a high level index on the first OS og 
CVOL. The entry contains an index name and the volume serial od 
number and device type of the second OS CVOL. The program can 
subsequently release the OS CVOLs by removing the entry from the 

high level index. If two OS CVOLS are connected: 


e The SYSCTLG data set must be created on the second volume 
for cataloging of data sets having the same high level index 
as the connected index. 


e A high level index can only be connected to one second OS 
CVOL, but chaining is possible from a second to a third OS 
CVOL, etc. 


Before any OS CVOL can be accessed by the system, it must be 
defined in the integrated catalog facility or VSAM master 
catalog. For details on how this is done, see Catalog 
Administration Guide. 


Figure 133 shows how one OS CVOL can be connected to a second OS 
CVOL. Any subsequent index search for index X on the first 
control volume is carried to the second control volume. 





First OS CVOL Connected OS CVOL 


SYSCTLG SYSCTLG 
data set data set 


Device type 
and serial 
number of 
connected 
OS CVOL 





Figure 133. Connecting an OS CVOL to a Second OS CVOL Using 
IEHPROGM 





The index name of each high level index existing on the second 
OS CVOL must be present in the first OS CVOL; when a new high 
level index is placed on a second 0S CVOL, the first OS CVOL 
should be connected to the second OS CVOL. 


Figure 134 on page 389 shows three OS CVOLS connected to one OS 


ale ee volumes are accessible through high level indexes X, 
» an ‘ 
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Ist CVOL 





Figure 134. Connecting Three OS CVOLs Using IEHPROGM 





BUILDING AND MAINTAINING A GENERATION DATA GROUP INDEX IN AN OS CVOL 


IEHPROGM can be used to build an index structure in an OS CVOL 
for a generation data group and to define what action should be 
taken when the index overflows. 


The lowest level index in the structure can contain up to 255 
entries for successive generations of a data set. If the index 
overflows, the oldest entry is removed from the index, unless 
otherwise specified (Cin which case, all entries are removed). 
If desired, the program can be used to scratch all generation 
data sets whose entries are removed from the index. 


Figure 135 on page 390 shows the index structure created for 


generation data group A.B.C. In this example, provision is made 
for up to five subsequent entries in the lowest level index. 


ITEHPROGM Program 389 








MAINTAINING DATA SET PASSWORDS 


390 


MVS/XA Data 





To 
SYSCTLG 
data set 


Figure 135. Building a Generation Data Group Index Using 
ITEHPROGM 


Before a generation data group can be cataloged as such on an OS 
CVOL, a generation data group index must exist. Otherwise, a 
generation data set is cataloged as an individual data set, 
rather than as a generation. 


When creating and cataloging a generation data set on an QS 
CVOL, you must provide the necessary DCB information. For a 
discussion of how DCB attributes are provided for a generation 


data group, see Data Administration Guide. 


ITEHPROGM can be used to maintain non-VSAM password entries in 
the PASSWORD data set and to alter the protection status of DASD 
data sets in the data set control block (CDSCB). For a complete 
description of data set passwords and the PASSWORD ieee set, see 
System—Data Administration and Data Administration Guide. 


A data set can have one of three types of password protection, 
as indicated in the DSCB for DASD data sets and in the tape 
label for tape data sets. See Debugging Handbook for the format 
of the DSCB. For a description of tape veep neey see Magnetic 

ape Labels and File Structure Administratio 


The possible types of data set password protection are: 


e No protection, which means that no passwords are required to 
read or write the data set. 


e Read/write protection, which means that a password 1s 
required to read or write the data set. 


® Read-without-password protection, which means that a 
password is required only to write the data set; the data 
set can be read without a password. 


If a system data set is password protected and a problem occurs 
on the data set, maintenance personnel must be provided with the 
password in order to access the data set and resolve the 
problem. 


A data set can have one or more passwords assigned to it; each 
password has an entry in the PASSWORD data set. A password 
assigned to a data set can allow read and write access, or only 
read access to the data set. 





‘8 
Figure 136 on page 391 shows the relationship between the 
protection status of data set ABC and the type of access allowed 
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by the passwords assigned to the data set. Passwords ABLE and 
BAKER are assigned to data set ABC. If no password protection 
is set in the DSCB or tape label, data set ABC can be read or 
written without a password. If read/write protection is set in 
the DSCB or tape label, data set ABC can be read with either 
password ABLE or BAKER and can be written with password ABLE. 
If read-without-password protection is set in the DSCB or tape 
label, data set ABC can be read without a password and can be 
written with password ABLE; password BAKER is never needed. 


System 

residence 
The kind of protection pointed volume 
at allows data set ABC to be: 


Read or written on with 
no password 


Read with 
password BAKER 


ngeoaosnacainting 






password 
data set 





Password BAKER 
for data set ABC 
allows read access 


Read or written on with 
pa 






Written on with - 
password ABLE Password ABLE 
for data set ABC 


allows read/write 


Read with 
no password 





Figure 136. Relationship between the Protection Status of a Data Set and Its 


Passwords 


Before IEHPROGM is used to maintain data set passwords, the 
PASSWORD data set must reside on the system residence volume. 
TEHPROGM can then be used to: 


e Add an entry to the PASSWORD data set. 
e Replace an entry in the PASSWORD data set. 
e Delete an entry from the PASSWORD data set. 


° Provide a list of information from an entry in the PASSWORD 
data set. 


Each entry in the PASSWORD data set contains the name of the 
protected data set, the password, the protection mode of the 
password, an access counter, and 77 bytes of optional user data. 
The protection mode of the password defines the type of access 
allowed by the password and whether the password is a control 
password or secondary password. The initial password, added to 
the PASSWORD data set for a particular data set, is marked in 
the entry as the control password for that data set. The second 
and subsequent passwords added for the same data set are marked 
as secondary passwords. 


For DASD data sets, IEHPROGM updates the protection status in 
the DSCB when a control password entry 18 added, replaced, or 
deleted. This permits setting and resetting the protection 
status of an existing DASD data set at the same time its 
passwords are added, replaced, or deleted. IEHPROGM 
automatically alters the protection status of a data set in the 
DSCB if the following conditions are met: 
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m The control password for the data set is being added, 


replaced, or deleted 
e The data set is online. 


e The volume on which the data set resides is specified on the 
utility control statement, or the data set is cataloged. 


® The data set is not allocated within the IEHPROGM job. 


For tape data sets, IEHPROGM cannot update the protection status 
in the tape label when a. password entry 1sS.added, replaced, or 
deleted. Protection status ina tape label must be set with 
JCL. 


Passwords to be added, replaced, deleted, or listed can be 
specified on utility control statements or can be entered by the 
console operator. JEHPROGM issues a message to the console 
operator when a password ona utility control statement is 


either missing or invalid. The message contains the job name, 


step name, and utility control statement name and identifies the 
particular password that is missing or invalid. Two invalid 
passwords are allowed per password entry on each utility control 
statement before the request 1s ignored; a total of five invalid 
passwords 1s allowed for the password entries on all the utility 
control statements in a job step before the step is canceled. 


Adding Data Set Passwords 


When a password is added for a data set, an entry is created in 
the PASSWORD data set with the specified data set name, password 
name, protection mode of the password Cread/write or read only), 
and the optional 77 characters of user-supplied data. The 
access counter in the entry is set to zero. 


The control password for a data set must always be specified to 
add, replace, or delete secondary passwords. The control 
password should not be specified, however, to list information 
from a secondary password entry. 


Secondary passwords can be assigned to a data set to restrict 
some users to reading the data set or to record the number of 
times certain users access the data set. The access counter in 
each password entry provides a count of the number of times the 
password was used to successfully open the data set. 


If a control password for an online DASD data set is Saeco the 
protection status of the data set Cread/write or 
read-without-password) is set in the DSCB. 


Replacing Data Set Passwords 


Any of the following information may be replaced in a password 
entry: the password, protection mode Cread/write or read anly) 
of the password, and the 77 characters of user data. The 
protection status of a data set can be changed by replacing the 
control entry for the data set. 


If the control entry of an online DASD data set is replaced, the 
DSCB is also reset to indicate any change in the protection 

status of the data set. Therefore, you should ensure that the 

ae online when changing the protection status of a DASD 
ata set, 
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Deleting Data Set Passwords 


When a control password entry is deleted from the PASSWORD data 
set, all secondary password entries for that data set are also 
deleted. However, when a secondary entry is deleted, no other 
password entries are deleted. 


If the control password entry is deleted for an online DASD data 
set, the protection status of the data set in the DSCB is also 
changed to indicate no protection. When deleting a control 
password for a DASD data set, the user should ensure that the 
volume is online. If the volume is not online, the password 
entry is removed, but data set protection is still indicated in 
the DSCB; the data set cannot be accessed unless another 
password 18 added for that data set. 


If the control password entry is deleted for a tape data set, 
the tape volume cannot be accessed unless another password 1s 
added for that data set. 


The delete function should be used to delete all the password 
entries for a scratched data set to make the space available for 
new entries. 


Listing Password Entries 


INPUT AND OUTPUT 


A list of information from any entry in the PASSWORD data set 
can be obtained in the SYSPRINT data set by providing the 
password for that entry. The list includes: the number of 
times the password has been used to successfully open the data 
set; the type of password Ccontrol password or secondary 
password) and type of access allowed by the password Cread/write 
or read-only); and the user data in the entry. Figure 137 shows 
a sample list of information printed from a password entry. 


DECIMAL ACCESS COUNT= 000025 
PROTECT MODE BYTE= SECONDARY, READ ONLY 
USER DATA FIELD= ASSIGNED TO J. BROWN 


Figure 137. Listing of a Password Entry 


ITEHPROGM uses the following input: 


e One or more data sets containing system control data to be 
modified. 
e A control data set that contains utility control statements 


used to control the functions of the program. 
IEHPROGM produces the following output: 
e A modified object data set or volume(s). 


e A message data set that contains error messages and 
information from the PASSWORD data set. 
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RETURN CODES 


CONTROL 


TEHPROGM returns a code in register 15 to indicate the results er 
of program execution. The return codes and their meanings are tS 
listed in Figure 138. ee 
Codes Meaning 


00 (00 hex) Successful completion. 


04 (04) | A syntax error was found in the name field of the 
control statement or in the PARM field in the EXEC 
statement. Processing continues. 

08 (08) A request for a specific operation was ignored 
because of an invalid control statement or an 
otherwise invalid request. The operation is not 
performed. 

l2 (0C) An input/output error was detected when trying to 


read from or write to SYSPRINT, SYSIN or the VTOC. 
The job step is terminated. 


16 (10) An unrecoverable error exists. The job step is 
terminated. 


Figure 138. JIEHPROGM Return Codes 


TEHPROGM | is controlled by job control statements and utility | 
control statements. te 


Job control statements are used to: 
e Execute or invoke the program. 
6 Define the control data set. 


@ Define volumes and/or devices to be used during the course 
of program execution. 


e Prevent data sets from being deleted inadvertently. 


@ Prevent volumes from being demounted before they have been 
completely processed by the program. 


e Suppress listing of utility control statements. 


Utility control statements are used to control the functions of 
the program and to define those data sets or volumes that are to 
be modified. 


IEHPROGM supports 3-byte UCB addresses and does not use device 
allocation tables. The maximum number of UCBs allowed under 
MVS/“XA is 4096. 
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JOB CONTROL STATEMENTS 


PARM Information on 





Figure 139 shows the job control statements for IEHPROGM. 


Statement Use 
JOB Initiates the job. 
EXEC Specifies the program name CPGM=IEHPROGM) or, if 


the job control statements reside in a procedure 
library, the procedure name. Additional PARM 
information can be specified to control the number 
of lines per page on the output listing and to 
suppress printing of utility control statements. 
See "PARM Information on the EXEC Statement." 


SYSPRINT DD Defines a sequential message data set. 


anynamel DD Defines a permanently mounted volume. (The system 
residence volume is considered to be a permanently 
mounted volume. ) 


anyname2e DD Defines a mountable device type. 


SYSIN DD Defines the control data set. The control data set 
normally follows the job control statements in the 
input stream; however, it can be defined as a 
member of a procedure library. 


Figure 139. JEHPROGM Job Control Statements 


With the exception of the SYSIN and SYSPRINT DD statements, all 
DD statements in Figure 139 are used as device allocation 
statements, rather than as true data definition statements. The 
Hera number of these allocated devices cannot exceed 256 per 
job step. 


Because IEHPROGM modifies the internal control blocks created by 
device allocation DD statements, the DSNAME parameter, if 
supplied, will be ignored by IEHPROGM. CAll data sets are 
defined explicitly or implicitly by utility control statements. ) 


Note: Unpredictable results may occur in multitasking 
environments where dynamic allocation/deallocation of devices, 
by other tasks, causes changes in the TIOT during IJEHPROGM 
execution. 


the EXEC Statement 


Additional information can be specified in the PARM parameter of 
the EXEC statement to control the number of lines per page on 
the output listing and to suppress printing of utility control 
statements. The EXEC statement can be coded: 


S/EXEC PGM=IEHPROGME », PARH=CLLINECNT=xx, ] 
CPRINTINOPRINT]] 


The LINECNT parameter specifies the number of lines per page in 
the listing of the SYSPRINT data set; xx is a 2-digit number, 
from 01 through 99. If LINECNT is omitted, or if an error is 
encountered in the LINECNT parameter, the number of lines per 
page will be 45. 
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The PRINT value specifies that the utility control statements 
are to be written to the SYSPRINT data set. If neither PRINT 
nor NOPRINT is coded, PRINT is assumed. 


The NOPRINT value specifies that utility control statements are 
not to be written to the SYSPRINT data set. Suppressing 
printing of utility control statements assures that passwords 
assigned to data sets remain confidential. However, suppressing 
printing may make it difficult to interpret error messages, 
because the relevant utility control statement is not printed 
before the message. 





SYSPRINT DD Statement 


The block size for the SYSPRINT data set must be a multiple of 
121. Any blocking factor can be specified. 





anynamel DD Statement 


One anynamel DD statement must be included for each permanently 
mounted volume referred to in the job step. 


The anynamel DD statement can be entered: 
//anynamel DD UNIT=xxxx, VOLUME=SER=xxxxxx, DISP=OLD 


The UNIT and VOLUME parameters define the device type and volume 
serial number. The DISP=OLD specification prevents the 
inadvertent deletion of a data set. (The anynamel DD statement 
1s arbitrarily assigned the ddname DD] in the IEHPROGM 
examples. ) 


anyname2 DD Statement 


One anyname2d DD statement must be included for each mountable 
device to be used in the job step. Multiple statements may be 
coded as long as each anyname iS unique. 


The anyname2 DD statement can be coded in the following ways: 
//fanyname2e DD VOLUME=SER=xxxxxx, UNIT=xxxx, DISP=OLD 


//anyname2e DD VOLUME=CPRIVATE,SER=xxxxxx), 
// UNIT=(€xxxx, , DEFER), DISP=OLD 


The second example can be used to specify deferred mounting when 
a large number of magnetic tapes or DASD volumes are to be 
processed in one application of the program. 


| The UNIT and VOLUME parameters define the device type and volume 

! serial number. The DISP=OLD specification prevents the 

| inadvertent deletion of a data set. Unit affinity cannot, be 

| used on DD statements defining mountable devices. (The anyname2 

| DD statement is arbitrarily assigned the ddname DD2 in the 
ITEHPROGM examples. ) 


When ITEHPROGM is dynamically invoked in a job step containing a 
program other than ITEHPROGM, the DD statements defining 
mountable devices must be included in the job stream prior to DD 
statements defining data sets required by the other program. 


For instructions on defining mountable volumes, see 


Appendix B, "DD Statements for Defining Mountable Devices" on 
page 423. 
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SYSIN DD Statement 


The block size for the SYSIN data set must be a multiple of 80. 
Any blocking factor can be specified. 


UTILITY CONTROL STATEMENTS 


SCRATCH Statement 


Figure 140 shows the utility control statements for ITEHPROGM. 


Statement 


SCRATCH 
RENAME 


CATLG 
UNCATLG 


BLDX 


DLTX 
BLDA 


DLTA 


CONNECT 


RELEASE 


BLDG 


ADD 
REPLACE 
DELETEP 
LIST 


Figure 140. 


Use 
Scratches a data set or a member from a DASD volume. 


Changes the name or alias of a data set or member 
residing on a DASD volume. 


Generates an entry in the index of an OS CVOL. 


Removes an entry from the lowest level index of an 
OS CVOL. 


Creates a new index in the OS CVOL CSYSCTLG data 
set). 


Removes a low level index from an OS CVOL. 


Assigns an alias to an index at the highest level of 
an OS CVOL. 


Deletes an alias previously assigned to an index at 
the highest level of an OS CVOL. 


Connects two OS CVOLsS together using a high level 
index name. 


Removes a high level index name from one OS CVOL 
that served as a connector or pointer to a second OS 
CVOL. 

Builds an index in an OS CVOL for a generation data 
group and defines what action should be taken when 
the index overflows. 

Adds a password entry in the PASSWORD data set. 
Replaces information in a password entry. 

Deletes an entry in the PASSWORD data set. 


Formats and lists information from a password entry. 


IEHPROGM Utility Control Statements 


Continuation requirements for utility control statements are 
described in "Continuing Utility Control Statements" on page 5. 


The SCRATCH statement is used to scratch a data set or member 


from a DASD volume. 


A data set or member is scratched only from 


the volume(s) designated in the SCRATCH statement. This 
function does not delete OS CVOL entries for scratched data 


sets. 


A SCRATCH operation will not be executed if the data set or 
volume is being used by a program executing concurrently. 
"™DISP=OLD" on the DD statement only prevents the inadvertent 


IEHPROGM Program 397 








deletion of a data set. It does not ensure exclusive use of the 
data set during execution of the job step. 


For multivolume data sets, all volumes specified must be online. = 


The format of the SCRATCH statement is showm below. 


[label] SCRATCH {VTOC | DSNAME=name} 
» VOL=device=(list) 
[,PURGE] 


[,»MEMBER=namel 
[,SYS] 





RENAME Statement 


The RENAME statement 1s used to change the true name or alias of 
a data set or member residing on a DASD volume. The name is 
changed only on the designated volume(s). The rename operation 
does not update the OS CVOL. 


A RENAME operation will not be executed if the data set or 
volume 1S being used by a program executing concurrently. 


For multivolume data sets, all volumes specified must be online. 


If you do not code the MEMBER parameter, the entire data set is Pa 
renamed. ——. 


The format of the RENAME statement is: 


[label] RENAME DSNANE=name 
»>VOL=device=(list) 


» NEWNAME=name 
[,MEMBER=namel] 





CATLG Statement 


The CATLG statement is used to generate a non-VSAM entry in the 


index of an OS CVOL. If additional levels of indexes are 
required in the OS CVOL, this function automatically creates 
them. 


When cataloging generation data sets and the index becomes full, 
see "BLDG (Build Generation Data Group Index) Statement™ on 
page 401 for the action to be taken. 


To catalog VSAM data sets in an integrated catalog facility or 
VSAM catalog, see Catalog Administration Guide and Access Method 
Service eferenc 


When device is represented by a group name (for example, SYSDA) a 
instead of a generic name (for example, 3350 or 3400) in the VOL # >» 
parameter, the catalog operation does not enter the device type | 
code in the OS CVOL. Instead, it places a unique entry in the 

device type field of the OS CVOL. The allocation of the device 
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for this entry may not be satisfactory to you. The generic name 
. should be used if the group name was generated for one or more 
( device types. When the system is subsequently generated, this 
entry may no longer be valid; that is, entries for all such 
group names should be deleted and then the group names should be 
recataloged after a subsequent generation of the system. 


When cataloging data sets residing on tape, specify the volume 
serial number and the data set sequence number as follows: 


VOL=device=(serial»segqno>,...) 


If a data set 1s created on a 9-track dual density tape unit 
(3400-6), the data set can be cataloged with a device 
specification of 3400-3 for an 1600 bits per inch tape or 3400-5 
for a 6250 bits per inch tape. If a device specification of 
3400-6 is made when the data set is cataloged, any subsequent 
retrieval of that data set is made on a dual density unit. 


The format of the CATLG statement is: 


DSNAME=name 


»VOL=device=(list) | (serial,seqno) 
[,CVOL=device=serial] 





UNCATLG Statement 


an The UNCATLG statement is used to remove a non-VSAM entry from 
( the index of the OS CVOL. If the entry removed was the last 
entry in the index, that index and all higher, unneeded, 
indexes, with the exception of the highest-level index, are 
removed from the OS CVOL. 


The format of the UNCATLG statement is: 


[label] UNCATLG DSNANE=name 
[,CVOL=device=serial] 





BLDX (Build Index) Statement 


The BLDX statement is used to create a new index in an OS CVOL. 
If the creation of an index requires that higher level indexes 
be created, this function automatically creates them. 


The format of the BLDX statement is: 


[label] BLDX INDEX=name 
[,CVOL=device=serial]] 
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DLTX (Delete Index) Statement 


The DLTX statement is used to remove an index from an OS CVOL. C ; 
Only an index that has no entries can be removed. en 





Because this function does not delete higher level indexes, it 

must be used repetitively to delete an entire structure. For 

example, to delete a generation data group index structure 

A.B.C.names, you must code the following sequence of statements: 
DLTX INDEX=A.B.C 

| DLTX INDEX=A.B 

: DLTX INDEX=A 


The format of the DLTX statement is: 


, [label] DLTX INDEX=name 
| [,CVOL=device=serial] 


BLDA (Build Index Alias) Statement 





The BLDA statement is used to assign an alias to an index at the 
highest level of an OS CVOL. 


The format of the BLDA statement is: 


a 
| [label] BLDA INDEX=name a, 
| » ALIAS=name 
: [,CVOL=device=serial] 


DLTA (Delete Index Alias) Statement 





The DLTA statement is used to delete an alias previously 
assigned to an index at the highest level of an OS CVOL. 


The format of the DLTA statement is: 


[label] DLTA | ALITAS=name 
[,CVOL=device=serial] 
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CONNECT Statement 


( The CONNECT statement is used to place an entry in the high 

Kee | level index of an OS CVOL. The entry identifies a second OS 
CVOL by its device type and volume serial number. In addition, 
it contains an index name identifying the index to be searched 
for Cduring subsequent index searches) on the second OS CVOL. 


This function does not create an index on the second OS CVOL. 


The CONNECT statement does not create a SYSCTLG data set on the 
connected control volume. Before cataloging the first data set 
on a connected control volume, you must define a SYSCTLG data 
set on that volume. This can be done with the following DD 
statement: 


//ddname DD DSNAME=SYSCTLG, UNIT=xxxx, DISP=(,KEEP), 
// SPACE=(CYL,1),VOLUME=SER=xxxxxx 


If a job requires an auxiliary control volume to complete a 
catalog search, you need not have the auxiliary control volume 
mounted before the job 1s begun. (CYou do not have to remember 
the volume on which a particular data set is cataloged.) The 
system directs the operator to mount an auxiliary control volume 
if it 1s needed. 


Before any OS CVOL can be accessed by the system, it must be 
defined in the integrated catalog facility or VSAM master 
catalog. For details, see Catalog Administration Guide. 


The format of the CONNECT statement is: 


[label] CONNECT INDEX=name 


( »>VOL=device=serial 
' [,CVOL=device=serial] 





RELEASE (Disconnect) Statement 


The RELEASE statement 1s used to remove an entry from the high 
level index of an OS CVOL. This disconnects, in effect, a 
second OS CVOL from the first OS CVOL. The RELEASE statement 
does not delete an index from the second OS CVOL. 


The format of the RELEASE statement is: 


|Llabel] RELEASE INDEX=name 





[,CVOL=device=serial]l 


BLDG (Build Generation Data Group Index) Statement 


The BLDG statement is used to build an index for a generation 
data group, and to define what action should be taken when the 
index overflows. 


To delete a generation data group index structure, use the "DLTX 
(Delete Index) Statement" on page 400. 
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The format of the BLDG statement is: 


[label] BLDG INDEX=name 


» ENTRIES=p 
[,CVOL=device=serial] 
[, EMPTY] 

[,DELETE] 





ADD (Add a Password) Statement 


The ADD statement is used to adda password entry in the 
PASSWORD data set. When the control entry for an online DASD 
data set 1s added, the indicated protection status of the data 
set 1s set in the DSCB; when a secondary entry is added, the 
protection status in the DSCB is not changed. 


The format of the ADD statement is: 


DSNAME=name 

[, PASWORD2=new-password] 
[,CPASWORD=control-password] 
[,TYPE=codel 
[,VOL=device=(list)] 
[,»DATA="user-data'] 





REPLACE (Replace a Password) Statement 


The REPLACE statement is used to replace any or all of the 
following information in a password entry: the password name, 
protection mode Cread/write or read only) of the password, and 
user data. When the control entry for an online DASD data set 
is replaced, the protection status of the data set is changed in 
the DSCB if necessary; when a secondary entry 1s replaced, the 
protection status in the DSCB is not changed. 


The format of the REPLACE statement is: 


Llabel] REPLACE DSNAME=name 
[,PASWORD1=current-password] 
[, PASWORD2=new-password] 


[»CPASWORD=contro]-password! 
[,TYPE=code] 
[,VOL=device=(list)] 
[,»DATA='user-data'l 
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DELETEP (Delete a Password) Statement 


( The DELETEP statement is used to delete an entry in the PASSWORD 

oo data set. If a control entry is deleted, all the secondary 
entries for that data set are also deleted. If a secondary 
entry is deleted, only that entry is deleted. When the control 
entry for an online DASD data set is deleted, the protection 
status in the DSCB is set to indicate that the data set is no 
longer protected. 


The format of the DELETEP statement is: 


[label] DELETEP DSNAME=name 
[,PASWORDl=current-password] 
[,CPASWORD=control-password] 
[,VOL=device=(list)] 





LIST (List Information from a Password) Statement 


The LIST statement is used to format and print information from 
a password entry. 


The format of the LIST statement is: 


[label] LIST DSNAME=name 
» PASWORD 1l=current-password 


Applicable 
Control 
Parameters Statements Description of Parameters 


ALIAS ALIAS=name 
specifies an unqualified name to be assigned as 
the alias or to be deleted from the index. The 
name must not exceed 8 characters. 


CPASWORD CPASWORD=control-password 
specifies the control password for the data set. 
CPASWORD must be specified unless this is the 
first password assigned to the data set, in 
pie! case PASWORD2 specifies the password to be 
added. 





DELETEP CPASWORD=control-password 

REPLACE CPASWORD must be specified unless the control 
entry is being changed or deleted, in which case 
PASWORD1 specifies the control password. 
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Applicable 
Control 
















Description of Parameters 


CVOL=device=serial 
For CATLG, UNCATLG, BLDX, DLTX and BLDG, CVOL 
specifies the OS CVOL on which the search for 
the index Centry, for UNCATLG) is to begin. 


For BLDA and DLTA, CVOL specifies the OS CVOL on 
which the entry is to be made or deleted. 


For CONNECT and RELEASE, CVOL specifies 
specifies the device type and volume serial 
number of the first OS CVOL. 


If CVOL is omitted: 


For CATLG and UNCATLG, the search begins with 
the integrated catalog facility or VSAM 
master/ JOBCAT/STEPCAT catalog. 


For BLDX, DLTX, BLDA, DLTA, CONNECT, RELEASE and 
BLDG, the system attempts to locate the proper 
(the first, for CONNECT) OS CVOL by checking the 
integrated catalog facility or VSAM master 
catalog for an OS CVOL pointer alias name equal 
to the high level index specified in the INDEX 
CALIAS, for DLTA) parameter. 


The OS CVOL must be defined in the integrated 
catalog facility or VSAM master catalog as: 


SYSCTLG.Vserial, where serial must equal the 
serial number of the CVOL. For more 


information, see Catalog Administration Guide. 
Default: The search begins with the integrated 


Statements 
catalog facility or VSAM master catalog Cor 


CVGL CATLG 
UNCATLG 
BLDX 
DLTX 
BLDA 
DLTA 
CONNECT 
RELEASE 
BLDG 
JOBCAT/STEPCAT, if specified). 


DATA ADD DATA="user-data' 

REPLACE specifies the user data to be placed in the 

password entry. The user data has a maximum 
length of 77 bytes and must be enclosed in 
apostrophes. Any other apostrophes contained 
within the user data must be entered as two 
single apostrophes. 
If DATA is omitted from an ADD operation, 77 
blanks are used. If DATA is omitted from a 
REPLACE operation, current user data is not 
changed. 


DELETE BLDG DELETE 


specifies that generation data sets are 
DSNAME SCRATCH 
RENAME 
CATLG 
DELETEP 
LIST 


scratched after their entries are removed from 
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the index. 


DSNANE=name 
specifies the fully qualified name of the data 
set to be either scratched or renamed; the fully 
qualified name of the partitioned data set that 
contains the member to be scratched or renamed; 
the fully qualified name of the data set to be 
cataloged or uncataloged; or the fully qualified 
name of the data set whose password entry 18 to 
be added, replaced, deleted, or listed. The 

qualified name must not exceed 44 characters, 

including delimiters. 



























\ 

\ 

m J 
“lye us 













Description of Parameters 


EMPTY 


ee Applicable 
( Control 
ce Parameters Statements 


EMPTY BLDG 


ENTRIES BLDG 


INDEX 


MEMBER 


NEWNAME RENAME 


PASWORDI 
























specifies that all entries be removed from the 
generation data group index when it overflows. 
This deletes all index entries for all of the 
generation data sets. 


Default: The entries with the largest 
generation numbers will be maintained in the 
catalog when the generation data group index 
overflows. 


ENTRIES=n 
specifies the number of entries to be contained 
in the generation data group index; n must not 

exceed 255, 


INDEX=name 
specifies the 1l- to 35-character qualified name 
of the generation data group index. 


INDEX=name 

specifies the qualified name of the index to be 
created or deleted. The qualified name must not 
exceed 44 characters, including delimiters. 


INDEX=name 
specifies the unqualified name of the index to 
which an alias name is to be assigned. The 

unqualified name must not exceed 8 characters. 


INDEX=name 
specifies the unqualified index name to be 
entered or removed from the high level index on 

the first OS CVOL. The unqualified name must 
not exceed 8 characters. 


MEMBER=name 
specifies a member name or alias of a member (Cin 
the named data set) to be renamed or removed 
from the directory of a partitioned data set. 
This name is not validity-checked because all 
members must be accessible, whether the name 1s 
valid or not. 


Default: The entire data set or volume of data 
sets specified by name 1s changed or scratched. 


















































Tite, 


CONNECT 
RELEASE 










SCRATCH 
RENAME 















NEWNAME=name 
specifies the new fully qualified name or alias 
name for the data set or the new member. 











REPLACE PASWORD1=current-password 
DELETEP specifies the password in the entry to be 


LIST listed, changed, or deleted. 


Default: The operator is prompted for the 
current password. 
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Applicable 
Control 
Parameters Statements 


PASWORD2 ADD 
REPLACE 
PURGE SCRATCH 
Default: The specified data sets are scratched 
only if their expiration dates have elapsed. 


SYS SCRATCH 
limits the action of SCRATCH VTOC so that only 
system data sets are erased. System data sets 
: have names beginning with 

NAAAAAAAA . AAAAAAAA. AAAAAAAA. AAAAAAAA.™ or 
"SYSnnnnn.T"™ with "F," "V," or "A™ an position 
19. These are names assigned to the data sets 
by the operating system. 
If the name of the data set to be scratched 
begins with SYS, it is likely to be a temporary 
data set which was not erased at normal step or 
job termination; nnnnn is the date the data set 
was created in dddyy format. 

| SYS does not scratch data sets that are system 
libraries, such as SYS].LINKLIB. 
The SYS parameter is valid only when VTOC is 
specified. 


Description of Parameters 






PASWORD2=new-password 
specifies the new password to be added or 
assigned to the entry. If the password is not 
to be changed, the current password must also be 
specified as the new password. The password can 

consist of 1 to 8 alphameric characters. 


Default: 
password. 














The operator is prompted for a new 


specifies that each data set specified by DSNAME 
or VTOC be scratched, even if its expiration 
date has not elapsed. 
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Applicable 
Control 
Parameters Statements Description of Parameters 


TYPE ADD TYPE=code 
REPLACE specifies the protection code of the password 
and, if a control password entry is to be 
changed for or assigned to a BDAM online data 
set, specifies the protection status of the data 
set. The values that can be specified for code 
are: 


1 





specifies that the password is to allow 
both read and write access to the data set; 
if a control password is being assigned or 
changed, read/write protection is set in 
the DSCB 


specifies that the password is to allow 
only read access to the data set; if 
control password 1s being assigned or 
changed, read/write protection is set in 
the DSCB. 


specifies that the password is to allow 
both read and write access to the data set; 
if a control password is being assigned or 
changed, read-without-password protection 
is set in the DSCB. 


Default: For ADD, if this parameter is 
( omitted, the new password is assigned the 


same protection code as the control 
password for the data set. If a control 
password 1s being "added," TYPE=5 is the 
default. For REPLACE, the protection is 
not changed. 
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Applicable 
Control 
Statements 





Parameters 


VOL CONNECT 

































ADD 
REPLACE 
DELETEP 
SCRATCH 
RENAME 





































































VTOC SCRATCH 
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Description of Parameters 


VOL=device=(list) 


VOL=device=(list)|lserial»seaqno) 









VOL=device=serial 


specifies the device type and serial number of 
the second OS CVOL. This information is placed 
in the high level index of the first OS CVOL. 


specifies the device type and serial number(s) 
of the volume(€s), limited to 50, that contain 
the data set(s). If only one serial number is 
listed in list, it need not be enclosed in 
parentheses. 


For ADD, REPLACE and DELETEP, if omitted, the 
protection status in the DSCB is not set or 
changed, unless the data set is cataloged and 
online. This parameter is not necessary for 
secondary password entries, or if the desired 
protection status in the DSCB is already set or 
1s not to be changed by ADD or REPLACE. 


For SCRATCH and RENAME, if VTOC or MEMBER is 
specified, VOL cannot specify more than one 
volume. Caution should be used when specifying 
VTOC if VOL specifies the system residence 

volume. 


specifies the device type, serial numbers, and 
data set sequence numbers (for tape volumes) of 
the volumes Cup to 50) that contain the data 

sets to be cataloged in the OS CVOL. 


The volume serial numbers must appear in the 
same order in which they were originally 

encountered Cin DD statements within the input 
stream) when the data set was created. 


seqno 18 valid only for data sets which reside 
on tape. 


specifies that all data sets on the designated 
volume be scratched, with the following 
exceptions: 


e a data set that is protected by a password 


e a data set whose expiration date has not 
passed 





a data set that contains the index for an 
indexed VTOC 


Password-protected data sets are scratched if 
the correct password 1s provided. 


The effect of VTOC is modified when it is used 
with PURGE or SYS. 


Utilities 






















IEHPROGM EXAMPLES 
aoe The following examples illustrate some of the uses of IEHPROGM. 
| Figure 141 can be used as a quick-reference guide to ITEHPROGM 


examples. The numbers in the "Example™ column point to the 
examples that follow. 


; Mount 
Operation Volumes Comments EXample 
SCRATCH Disk YVTOC is scratched. ] 


SCRATCH Disk Two data sets are scratched and their entries 2 
UNCATLG removed from the OS CVOL. 


RENAME, 
UNCATLG 









A data set is renamed on two mountable devices; 
the old data set name is removed from the OS 
CVOL. The data set is cataloged under its new 
name. 


Disks 






CATLG 


UNCATLG Disk 


RENAME Disk 






Index structures for three generation data sets 





are deleted from the OS CVOL. 


A data set is renamed. The old passwords are 


deleted and new passwords are assigned. 


DELETEP, 
and ADD 








LIST and Disk A password entry is listed. Protection mode 
REPLACE and status are changed, and user data 1s added. 


RENAME Disk 


CATLG and Disk 
CONNECT 


_ BLDG, Disk 
: RENAME and 


A member of a partitioned data set is renamed. 





One OS CVOL is connected to another. 





A generation data group index is built; three 
data sets are renamed and entered in the index. 


CATLG 
BLDG Disk 





A new generation data group index is built and 
updated through JCL. A model DSCB is created. 
New generations are added. 


— ~ Ss) IN WN 
(on) 





Figure 1941. IEHPROGM Example Directory 


Examples that use disk or tape in place of actual device numbers 
must be changed before use. See "DASD and Tape Device Support" 
on page 3 for valid device number notation. 


IEHPROGM EXAMPLE 1 


In the following example, all data sets are scratched from the 
volume table of contents of a mountable volume. Because the 
system residence volume is not referred to, no DD] DD statement 
1S necessary in the job stream. 


//SCRVTOC JOB... 

7 EXEC PGM=IEHPROGM 

//SYSPRINT DD SYSOUT=A 

//DD2 DD UNIT=daisk, VOLUME=SER=222222, DISP=OLD 


S/SYSIN DD x 
SCRATCH VTOC,VOL=disk=222222, SYS 


/® 
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The SCRATCH statement, used in this example, indicates that all 
data sets Cincluding those system data sets beginning with : 
AAAAAAAA . AAAAAAAA. AAAAAAAA. AAAAAAAA) whose expiration dates have fN 
expired are scratched from the specified volume. : 





IEHPROGM EXAMPLE 2 
In this example, two data sets are scratched: SET] is scratched 
on volume 222222, and A.B.C.D.E is scratched on volume 222222. 
Both data sets are uncataloged. 
//SCRDSETS JOB... 
// EXEC PGM=IEHPROGM 
//SYSPRINT DD SYSOUT=A 
//DD1 DD UNIT=disk, VOLUME=SER=111111,DISP=OLD 
//DD2 DD UNIT=disk, DISP=O0LD,VOLUME=SER=222222 
4/7SYSIN DD xX 
SCRATCH DSNAME=SET1,VOL=disk=222222 
UNCATLG DSNAME=SET1 
SCRATCH DSNAME=A.B.C.D.E,VOL=disk=222222 
UNCATLG DSNAME=A.B.C.D.E 
/X 
The utility control statements are discussed below: 
e The first SCRATCH statement specifies that SET1, which 
resides on volume 222222, is scratched. 
e The first UNCATLG statement specifies that SET1 is 
uncataloged. 
e The second SCRATCH statement specifies that A.B.C.D.E, which |. 
resides on volume 222222, is scratched. acts 
e The second UNCATLG statement specifies that A.B.C.D.E is 
uncataloged. 
IEHPROGM EXAMPLE 3 
In this example, the name of a data set is changed on two 
mountable volumes. The old data set name is removed from the OS 
CVOL and the data set is cataloged under its new data set name. 
//RENAMEDS JOB... 
// EXEC PGM=IEHPROGM 
//SYSPRINT DD SYSOUT=A 
//DD1 DD VOLUME=SER=111111,UNIT=disk, DISP=OLD 
//DD2 DD UNIT=(Cdisk,,DEFER),DISP=OLD, 
// VOLUME=CPRIVATE,SER=(€222222,333333)) 
//SYSIN DD xX 
RENAME DSNAME=A.B.C,NEWNAME=NEWSET, 
VOL=disk=(€222222,333333) 
UNCATLG DSNAME=A.B.C | 
CATLG DSNAME=NEWSET,VOL=disk=(€222222, 333333) 
/% 
The control statements are discussed below: co 
¢ RENAME specifies that data set A.B.C, which resides on ee 
volumes 222222 and 3333533, is to be renamed NEWSET. ed 
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IEHPROGM EXAMPLE 4 


IEHPROGM EXAMPLE 5 


® UNCATLG specifies that data set A.B.C is uncataloged. 


@ CATLG specifies that NEWSET, which resides on volumes 222222 
and 333333, is cataloged in the OS CVOL. 


In this example, three data sets—A.B.C.D.E.F.SETI, 
A.B.C.G.H.SET2, and A.B.I.J.K.SET3—are uncataloged. 


//DLTSTRUC JOB... 

// EXEC PGM=IEHPROGM 

4/SYSPRINT DD SYSOUT=A 

//DD1 DD UNIT=disk, VOLUME=SER=111111,DISP=OLD 


7/SYSIN DD xX 
UNCATLG DSNAME=A.B.C.D.E.F.SET1 
UNCATLG DSNAME=A.B.C.G.H.SET2 
UNCATLG DSNAME=A.B.1I.J.K.SETS 





The control statements are discussed below: 


e The UNCATLG statements specify that data sets 
A.B.C.D.E.F.SET1, A.B.C.G.H.SET2, and A.B.I.J.K.SET3 are 
uncataloged. 


In this example, a data set is renamed. The data set passwords 
assigned to the old data set name are deleted. Then two 
passwords are assigned to the new data set name. 


If the data set 1s not cataloged, a message 1s issued indicating 
that the LOCATE macro instruction failed. 


//ADDPASS JOB... 

A EXEC PGM=IEHPROGM, PARM='NOPRINT'! 
//SYSPRINT DD SYSOUT=A 

//DD1 DD VOLUME=CPRIVATE,SER=222222),DISP=OLD, 
47 UNIT=Cdisk, , DEFER) 

S/ASYSIN DD xX 


RENAME DSNAME=OLD,VOL=disk=222222,NEWNAME=NEW 
DELETEP DSNAME=OLD, PASWORDI=KEY 
ADD DSNAME=NEW, PASNWORD2=KEY, TYPE=1, 
DATA="SECONDARY IS READ! 
ADD DSNAME=NEW, PASWORD2=READ, CPASWORD=KEY, TYPE=2, 
DATA="ASSIGNED TO J. DOE’ 





The utility control statements are discussed below: 


@ RENAME specifies that the data set called OLD is renamed 
NEW. The operator is required to supply a password to 
rename the old data set. 


® DELETEP specifies that the entry for the password KEY is 
deleted. Because KEY is a control password in this example, 
all the password entries for the data set name are deleted. 
The VOL parameter is not needed because the protection 
status of the data set as set in the DSCB is not to be 
changed; read/write protection is presently set in the DSCB, 
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IEHPROGM EXAMPLE 6 


IEHPROGM EXAMPLE 7 





and read/write protection is desired when the passwords are - 

reassigned under the new data set name. fe c 

e The ADD statements specify that entries are added for ‘oy 
passwords KEY and READ. KEY becomes the control password 
and allows both read and write access to the data set. READ 
becomes a secondary password and allows only read access to 
the data set. The VOL parameter 1s not needed, because the 
protection status of the data set is still set in the DSCB. 


In this example, information from a password entry is listed. 
Then the protection mode of the password, the protection status 
of the data set, and the user data are changed. 


/7/REPLPASS JOB... 

EXEC PGM=IEHPROGM, PARM="NOPRINT' 
//SYSPRINT DD SYSOUT=A 
//DD1 DD UNIT=daisk, VOLUME=SER=111111,DISP=OLD 
//DD2 DD VOLUME=CPRIVATE, SER=(222222,333333)), 
// UNIT=(Cdisk, , DEFER), DISP=OLD 


S/SYSIN DD x 
LIST DSNAME=A.B.C,PASWORDI=ABLE 
REPLACE DSNAME=A.B.C,PASWORDI=ABLE, 
PASWORD2=ABLE,TYPE=3, 
VOL=disk=(222222,333333), 
DATA="NO SECONDARIES; ASSIGNED TO DEPT 31' 





The utility control statements are discussed below: 


° LIST specifies that the access counter, protection mode, and 
user data from the entry for password ABLE are listed. 
Listing the entry permits the content of the access counter 
to be recorded before the counter is reset to zero by the 
REPLACE statement. 


e REPLACE specifies that the protection mode of password ABLE 
1s to be changed to allow both read and write access and 
that the protection status of the data set is changed to 
write-only protection. The VOL parameter is required 
because the protection status of the data set is changed and 
the data set, in this example, is not cataloged. Because 
this is a control password, the CPASWORD parameter is not 
required. 


In this example, a member of a partitioned data set is renamed. 


//REN JOB... 

// EXEC PGM=IEHPROGM 

//SYSPRINT DD SYSOUT=A 

//DD1 DD VOL=SER=222222, DISP=0LD,UNIT=disk 


/7SYSIN DD 
RENAME  VOL=disk=222222, DSNAME=DATASET,NEWNAME=BC, 
MEMBER=ABC 


7% 
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IEHPROGM EXAMPLE 8 


IEHPROGM EXAMPLE 9 


The control statements are discussed below: 
® DD1 DD defines a permanently mounted volume. 


e SYSIN DD defines the input data set, which follows in the 
input stream. 


® RENAME specifies that member ABC in the partitioned data set 
DATASET, which resides on a disk volume, is renamed BC. 


In this example, a new OS CVOL CSYSCTLG data set) is defined and 
connected to an existing OS CVOL. A data set is then cataloged 
in the new QOS CVOL. 


S/LNKX JOB... 

S/STEPI EXEC PGM=IEHPROGM 

//SYSPRINT DD SYSOQUT=A 

//NEWCVOL DD DSN=SYSCTLG,UNIT=disk, VOL=SER=222222, 
DISP=(,KEEP),SPACE=CTRK,(€10,1)) 


DD UNIT=disk, VOL=SER=111111,DISP=SHR 
DD xX 
CATLG DSNAME=SYSCTLG.V222222,VOL=disk=222222 
CONNECT INDEX=AA,VOL=disk=222222 
CATLG DSNAME=AA.BB,VOL=disk=PACK14 





This example assumes that the OS CVOL on volume II1111 was 
previously defined in the integrated catalog facility or VSAM 
master catalog with an OS CVOL pointer, and "AA™ was defined in 
the integrated catalog facility or VSAM master catalog as an 
alias of the OS CVOL pointer. For details on how this is done, 


see Catalog Administration Guide. 


The utility control statements are discussed below: 
e NEWCVOL DD allocates space for the new OS CVOL. 


6 The first CATLG statement establishes an OS CVOL pointer in 
the integrated catalog facility or VSAM master cataiog for 
the new OS CVOL. 


@ The CONNECT statement causes the new OS CVOL Con volume 
222222) to be connected to the old OS CVOL Con volume 
111111), such that any catalog management requests coming to 
the old OS CVOL having a high level index name of AA will be 
routed to the new OS CVOL. 


e The second CATLG statement will cause the data set AA.BB to 
be cataloged in the new OS CVOL on volume 222222. Since 
this is the first request to update the new OS CVOL, this 
will cause the new OS CVOL to be formatted before the 
catalog entry 1s made. 


In this example, a generation data group index for generation 
data group A.B.C is built in an OS CVOL. Three existing 
noncataloged, nongeneration data sets are renamed; the renamed 
data sets are entered as generations in the generation data 
group index. 
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//BLDINDEX JOB... Nae” 
// EXEC PGM=IEHPROGM 
//SYSPRINT DD SYSOUT=A | 
//DD1 DD UNIT=disk, VOLUME=SER=111111,DISP=OLD 
//DD2 DD UNIT=Cdisk,,DEFER),DISP=OLD, 
/f VOLUME=CPRIVATE, ,SER=C€ 222222) ) 
4/SYSIN DD xX 
BLDG INDEX=A.B.C,ENTRIES=10,CVOL=disk=111111 
RENAME DSNAME=DATASET1,VOL=disk=222222, 
NEWNAME=A.B.C.GO0001V00 
RENAME DSNAME=DATASET2, VOL=disk=222222, 
NENNAME=A.B.C.GO002V00 
RENAME DSNAME=DATASET3, VOL=disk=222222, 
NEWNAME=A.B.C.GO0003V00 
CATLG DSNAME=A.B.C.GO0001V00,VOL=disk=222222, 
CVOL=disk=111111 
CATLG DSNAME=A.B.C.GO002V00,VOL=disk=222222, 
CVOL=disk=111111 
CATLG DSNAME=A.B.C.G0003V00,VOL=disk-222222, 
CVOL=disk=l111111 
The control statements are discussed below: 
® DD1 DD defines the volume on which the SYSCTLG data set 
resides. 
e BLDG specifies the generation group name A.B.C and makes 
provision for ten entries in the index. The oldest 
generation is uncataloged when the index becomes full. No ae: te 


generations are scratched. . 


e The RENAME statements rename three nongeneration data sets 
residing on a disk volume. 


° The CATLG statements enter the renamed data sets in the 
generation data group index and catalog them in the OS CVOL. 


Because the DCB parameters were supplied when the nongeneration 
data sets were created, no DCB parameters are now specified; 
therefore, no model DSCB is required. See Example 10 for 
information on how to create a model DSCB. 


In this example, an IEHPROGM job step, STEPA, creates a model 
DSCB and builds a generation data group index. STEP B, an 
IEBGENER job step, creates and catalogs a sequential generation 
data set from data in the input stream. STEP C, an IJEBGENER job 
step, creates and catalogs a second generation with new DCB 
attributes. 


This example assumes that the OS CVOL with serial number 111111 
was previously defined in the integrated catalog facility or 
VSAM master catalog with an OS CVOL pointer, and "A™ was defined 
in the integrated catalog facility or VSAM master catalog as an 
alias of the OS CVOL pointer. For details on how this is done, 
see Catalo dmini 1 j 
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//BLDINDX JOB... 

//STEPA EXEC PGM=IEHPROGM 

/7SYSPRINT DD SYSOUT=A 

//BLDDSCB DD DSNAME=A.B.C,DISP=C,KEEP),SPACE=CTRK,(0)), 


17 
ras 


DCB=(LRECL=80,RECFM=FB, BLKSIZE=800), 
VOLUME=SER=111111,UNIT=disk 


S/SYSIN D x 


1% 


BLDG INDEX=A.B.C,ENTRIES=10,EMPTY,DELETE 


//STEPB EXEC PGM=IEBGENER 

//SYSPRINT DD SYSOUT=A 

“/SYSIN DD DUMMY 

7/SYSUT2? DD DSNAME=A.B.C(+1),UNIT=disk, DISP=(,CATLG), 
17 VOLUME=SER=222222, SPACE=CTRK, 20) 

J/SYSUTI DD DATA 


Cinput data) 


S/SSTEPC EXEC PGM=IEBGENER 
7/SYSPRINT DD SYSOUT=A 

S/SYSIN DD DUMMY 

SASYSUT2 DD DSNAME=A.B.CC+1),UNIT=disk, DISP=(,CATLG), 


DCB=(LRECL=80,RECFM=FB,BLKSIZE=1600), 
VOLUME=SER=222222, SPACE=CTRK, 20) 


f/SYSUTI DD DATA 


Cinput data) 


1% 





The control statements are discussed below: 


STEPA: 


BLDDSCB DD creates a model DSCB on the OS CVOL volume. 


SYSIN DD indicates that the control data set follows in 
the input stream. 


BLDG specifies the generation data group name A.B.C and 
makes provision for ten entries in the group. When the 
index 1s filled, it 1s emptied, and all of the 
generations are deleted. 


STEPB: 


SYSUT2 DD defines an output sequential generation data 
set. The generation data set 1s assigned the absolute 
generation and version number GO001V00 in the index. 


SYSUT1 DD defines the input data set, which follows in 
the input stream. 


STEPC: 


SYSUT2 DD defines a second output sequential generation 
data set. The generation data set is assigned the 
absolute generation and version number GO0002V00 in the 
index. The specified DCB attributes override those 
initially specified in the model DSCB. The DCB 
attributes specified when the model DSCB was created 
remain unchanged; that is, those attributes are 
applicable when you catalog a succeeding generation 
unless you specify overriding attributes at that time. 


SYSUT1 defines the input data set, which follows in the 
job stream. 
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Any subsequent job that causes the deletion of the generations 
should include DD statements defining the devices on which the 
volumes containing those generations are to be mounted. The OS 
CVOL entry is deleted for each generation for which no DD 
statement is included at that time, but the generation itself is 
not deleted. 


After the generation data group is emptied, the new generations 
continue to be assigned generation numbers according to the last 
generation number assigned before the empty operation. To reset 
the numbering operation (that is, to reset to GOOOO0OVO0O0 or 
GO001V00), it is necessary to delete the catalog entries for all 
the old generation data sets and then rename and recatalog, 
beginning with GOOOOVOO. 
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| C IFHSTATR PROGRAM 





IFHSTATR is a system utility that formats and prints information 
from Type 21 SMF (system management facilities) records. These 
records provide error statistics by volume CESV) data. 
Figure 142 below and Figure 143 on page 418 show the formats of 
the type 21 records. 

TOTAL RECORD LENGTH (48) 


SYSTEM RECORD 
INDICATOR TYPE (21) 


TIME OF DAY CCONTINUED) CURRENT DATE 
CURRENT DATE CCONTINUED) SYSTEM IDENTIFICATION 


SYSTEM IDENTIFICATION LENGTH OF REST OF RECORD 
INCLUDING THIS FIELD (30) 


VOLUME SERIAL NUMBER 
VOLUME SERIAL NO. CCONT) CHANNEL UNIT ADDRESS 
UCB TYPE 


TEMPORARY READ] TEMPORARY WRITE START I/Os 

ERRORS ERRORS 

PERMANENT READ| PERMANENT WRITE NOISE BLOCKS ERASE GAPS 
ERRORS ERRORS 

ERASE GAPS CLEANER ACTIONS TAPE DENSITY 
CCONTINUED) 


BLOCK SIZE RESERVED 


DESCRIPTOR 
TIME OF DAY 


Figure 1462. SMF Type 21 CESV) Record Format (468 bytes) 
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TOTAL RECORD LENGTH (62) DESCRIPTOR 


SYSTEM RECORD TIME OF DAY 
INDICATOR TYPE (21) 


TIME OF DAY CCONTINUED) 
CURRENT DATE CCONTINUED) 
SYSTEM IDENTIFICATION 


an 


CURRENT DATE 
SYSTEM IDENTIFICATION 


LENGTH OF REST OF RECORD 
INCLUDING THIS FIELD (44) 


VOLUME SERIAL NUMBER 
VOLUME SERIAL NO. CCONT) CHANNEL UNIT ADDRESS 
UCB TYPE 


TEMPORARY READ} TEMPORARY WRITE 
ERRORS ERRORS 
PERMANENT READ] PERMANENT WRITE 
ERRORS ERRORS 

ERASE GAPS CLEANER ACTIONS 
(CONTINUED) 


BLOCK SIZE DCBOFLAG T/U SERIAL 
TAPE UNIT SERIAL CCONTINUED) TEMPORARY READ FORWARD ERRORS | 


TEMPORARY READ BACKWARD ERRORS TEMPORARY WRITE ERRORS 
NUMBER OF 4K BYTES READ NUMBER OF 4K 







START I/Os 


NOISE BLOCKS ERASE GAPS 


TAPE DENSITY 









BYTES WRITTEN = 


Figure 143. SMF Type 21 CESV) Record Format (62 Bytes) 


SSESSING THE QUALT OF TAPES IN BRA 


The statistics gathered by SMF in ESV records can be very useful 
for assessing the quality of a tape library. IFHSTATR prants ESV 
records in date/time sequence. You may find it useful to sort 
ESV records into volume serial number sequence, device address 
sequence, or into error occurrence sequence to help analyze the 
condition of the library. 


The IFHSTATR report helps to identify deteriorating media 
(tapes); occasionally, poor performance from a particular tape 
drive can also be identified. The TAPE UNIT SERIAL may be used 
to identify the tape drive that wrote the tape. 


An ESV record is written to the SMF data set via SVC 91: 


1. When a volume is demounted 

2. When a volume is demounted via DDR 
3. When a tape drive is VARIED off-line 
G4. When an EOD command is issued 

5. When EREP is run 
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more than one record may be written during the time a volume is 
mounted. Therefore, the number of records for a volume should 


| Because an ESV record may be written at other than demount time, 


| not be used to determine the number of mounts or uses of a 


volume. 


| INPUT AND OUTPUT 


IFHSTATR uses, as input, ESV records that contain error and 
usage information about magnetic tape volumes. If no ESV records 
are found, a message is written to the output data set. If the 
ESV record is not 48 or 62 bytes long, an INVALID TYPE 21 RECORD 
message is printed. 


ESV records should be retrieved from the IFASMDMP tape or from 
SYSI1.MAN Con tape). ESV can also be retrieved directly from 
SYS1.MANX or SYSI.MANY Con direct access storage device); 
however, IFHSTATR does not clear the SYS1.MANX Cor SYS1.MANY) 
data set or make it available for additional records. 


IFHSTATR produces an output data set which contains information 
selected from ESV records. The output takes the form of 121-byte 
unblocked records, with an American National Standards Institute 
CANSI) control character in the first byte of each record 


Figure 144 shows a sample of printed output from IFHSTATR. 


MAGNETIC TAPE ERROR STATISTICS BY VOLUME 85/123 


VOLUME TIME DEV T/U BLOCK TAPE TEMP TEMP TEMP PRM PRM NOISE ERASE CLEAN USAGE MBYTES MBYTES 
SERIAL OATE OF DAY AOR SER MODE SIZE DENS READ READB WRITE RD WRT BLOCK GAPS ACTS SIO READ’ WRITTEN 


“TN ay Tee et ae ee er te ee 2 

T34200 85111 08:04:22 180 00000 OUT N/A N/A . 5 ; 7 8 N/A N/A 
85111 12:01:59 281 56789 OUT 80 1600 NA 5 N/A N/A 

T34202 85111 12:02:18 28C 67890 RB 32768 6250 255 N/A 255 255 258 255 65535 65535 65535 N/A N/A 
85111 12:03:21 480 78901 RB 80 N/A 1 2 10 

T34801 85111) 12:04:21 480 89012 RF 65535 N/A 65535 65535 65535 255 255 N/A 65535 65535 65535 65535 65535 


ahahaha hehehehehe dehehitehedahehtahsdehshshatehehehedatstsdadaddadboiahabahatahedadahadedahabsbakahahabahetedetetebat tedaditid tohedutet tot Lat Urey 
* 























* 1342000 IS A 3420 WITH SMALL NUMBER OF ERRORS WITH BLOCKSIZE/DENS!ITY NOT AVAILABLE 
* 1342001 1S A 3420 WITH SMALL ange OF ERRORS 


* 
% 
2 i ied 
* T348000 !S A 3480 WITH SMALL NUMBER OF ERRORS . 
: 7348001 1S A 3480 WITH MAXIMUM NUMBER OF ERRORS = 

* 

* 


SbEURsEus Ess akCGULUNSSUMASeuaUoeuu Ge uuGEENEMUGED UGuuN ead uabied bee cdeeadeaeeekeecaisasteuetee ek ea 


Figure 144. Sample Output from IFHSTATR 


| LEGEND 
TIME OF DAY The time the ESV record was written. 


DEV ADR The device address of the tape drive on which 
the tape was mounted 


T/U SER Serial number of the tape drive that wrote the 
tape, which 1s obtained from the tape label for 
input tapes if available. 


MODEL The OPEN flag bits for the data set being 
accessed. 
® OUT = OPENED for OUTPUT 
e RF = OPENED for INPUT forward 
) RB = OPENED for INPUT read backward 
BLOCKSIZE1 The block size in the last data set accessed. 
TAPE DENS2 The recording density of the tape. 
TEMP READ Number of read data checks that were 


successfully retried. 
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CONTROL 


TEMP READB@ Number of read data checks on read backward 
commands that were successfully retried. 


TEMP WRITE Number of write data checks that were 
successfully retried. 


PERM RD Number of read data checks that were not 
successfully retried 

PERM WRT Number of write data checks that were not 
successfully retried. 

NOISE BLOCK CNRZI only) Number of read data checks that had 


the number of bytes read less than 12 


ERASE GAPS Number of times an erase gap command was issued 
during error recovery. An erase gap command is 
issued prior to a retry of a write data check. 


CLEAN ACTS Number of times that, during read data check 
recovery, the tape was moved over the cleaner 
blade. This will normally be done after every 
fourth retry of the original read command. 


USAGE SIO Number of channel programs completed (Cchannel 
programs started by ERP are not counted) 
Because a channel program has any number of 
CCW'S, this may not be the count of the reads 
or writes. 


MBYTES READ<@ Megabytes read. 
MBYTES WRITTEN Megabytes written. 


1 Data originates in the DCB and may not be available. 
2 Buffered tape units only 


IFHSTATR is controlled ‘by job control statements. Utility 
control statements are not used 
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Figure 145 shows the job control statements for IFHSTATR. 
Figure 146 on page 421 shows an example of the JCL used to 
produce output. 


Statement Use 

JOB Initiates the job. 

EXEC Specifies the program name (PGM=IFHSTATR). 

SYSUT1 DD Defines the input data set and the device on which 


it resides. The DSNAME, UNIT, VOLUME, LABEL, DCB, 
and DISP parameters should be included 


SYSUT2 DD Defines the sequential data set on which the 
output is written. 


Figure 145. IFHSTATR Job Control Statements 
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am 








7/REPORT SOB: se 

// EXEC PGM=IFHSTATR 

//SYSUTI1 DD UNIT=2400,DSNAME=SYS1.MAN,LABEL=(€,5SL), 
// NOL=SER=volid, DISP=OLD 

S/SYSUT2 DD SYSOQUT=A 

1% 


Figure 146. IFHSTATR Example 

The output data set can reside on any output device supported by 
BSAM. 

Note: The input LRECL and BLKSIZE parameters are not specified 


by IFHSTATR. This information is taken from the DCB parameter 
on the SYSUT1 DD statement or from the tape label. 
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PPENDIX A. EXIT ROUTIN KAG 





Utility programs can be linked to user-sSupplied exit routines 
for additional processing. 


Figure 147 shows the programs from which exits can be taken to 
non-label processing routines, the names of the exits, and the 
parameters available for each exit routine. 


IEBGENER KEY at which Key is to be placed 
follows key); address of DCB. 
DATA of SYSUT1 record; address of 
ILOERROR of DECB; cause of the error and 
of DCB. (Address in lower 
order three bytes and cause of error in 
| high order byte.) 


record; length of SYSUT2 record. 


IEBPTPCH INREC Address of input record; length of the 
input record. 

OUTREC Address of output record; length of the 
output record. 


Figure 147. Parameter Lists for Non-Label Processing Exit 
Routines 


IEBCOMPR ERROR Address of DCB for SYSUT1; address of 
DCB for SYSUT2.12 
PRECOMP Address of SYSUT] record; length of 
SYSUT1 record, address of: SYSUT2 





Note to Figure 147: 


1 The IOBAD pointer in the DCB points to a location that 
contains the address of the corresponding data event control 
block (CDECB) for these records. The format of the DECB is 
1llustrated as part of the BSAM READ macro instruction in 

ta Administration: Macro Instructi Reference. 


For detailed information about these and other exit routines 
available, see the Data Facility Product: Customization manual. 








G22 MVS/XA Data Administration: Utilities 


APPEND 


D ST E 


DD EXAMPLE 1 





DD STATEMENTS FOR DEFINING MOUNTABLE DEVICE 


When defining mountable devices to be used by system utility 
programs ITEHPROGM, IEHMOVE, or IEHLIST, you must consider the 
implications of the DD statements used to define those devices. 


DD statement parameters must ensure that no one else has access 
to either the volume or the data set. In any case, caution 
should be used when altering volumes that are permanently 
resident or reserved. 


Under normal conditions, a mountable device should not be shared 
with another job step; that is, if a utility program is used to 

update a volume on a mountable device, the volume being updated 

must remain mounted until the operation is completed. 


Following are ways to ensure that mountable devices are not 
shared: 


e Specify DEFER ina DD statement defining a mountable device. 

e Specify a volume count in the VOLUME parameter of a DD 
statement that is greater than the number of mountable 
devices to be allocated. 


6 Specify PRIVATE in a DD statement defining a mountable 
device. 


For a detailed discussion, see the publication JCL. 


E 


In the following examples of DD statements, an IBM DASD is 
alee ie as the mountable device. Alternative parameters are 
stacked. 


Examples that use disk in place of actual device numbers must be 
changed before use. See "DASD and Tape Device Support" on 
page 3 for valid device number notation. 


é 


This DD statement makes a specific request for a private, 
nonsharable volume or volumes to be mounted on a single device. 


//DD1 DD UNIT=Cdisk,,DEFER),DISP=C€,KEEP), 


// VOLUME=CPRIVATE, SER=(123456)), 
17 SPACE=(CYL,(€1,1)) 





A utility program causes a mount message to be issued for a 
specific volume when the volume is required for processing by 
the program. You should supply the operator with the clearly 
marked volume or volumes to be mounted during the job step. 


This DD statement ensures that the volume integrity of a 
mountable volume 1s maintained. If only one volume is to be 
processed, it is mounted at the start of the job step and 
demounted at the end of the step. If additional volumes are 
processed, they are mounted and demounted when needed by the 
utility program. The last volume to be processed is demounted 
at the end of the job step. 
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DD EXAMPLE 2 


This DD statement makes a request for a private, nonsharable 
volume. 


//DD2 DD UNIT=(disk,, DEFER), VOLUME=PRIVATE, DISP=(NEW,KEEP), 


// SPACE=(CYL,(€1,1)) 





The results of this statement are identical to those shown in DD 
Example l. 


If a specific unit 1s requested and the volume serial number is 
not given in the DD statement, you must be certain that either: 
(1) the desired volume is already mounted on that unit, or (2) a 
volume is not mounted, causing the system to issue a mount 
message. 


This statement can be used only if you are certain that a 
removable volume, rather than a fixed volume, will be allocated 
by the scheduler. If there is any chance that a fixed volume 
will be allocated, this statement must not be used. 


DD EXAMPLE 3 


This DD statement makes a specific request for a private, 
sharable volume to be mounted on a device. 


//DD1 DD UNIT=disk, VOLUME=C(PRIVATE, SER=(121212)),DISP=OLD 





This DD statement does not ensure that volume integrity is 
maintained. It should. be used with extreme caution ina 
multiprogramming environment because there is the possibility 
that a job step running concurrently might make a specific 
request for the volume, use the volume, and demount it. 


DD EXAMPLE 4 


This DD statement makes a specific request for a public, 
nonsharable volume to be mounted on a device. 


//DD3 DD UNIT=Cdisk, , DEFER), VOLUME=SER=789012,DISP=OLD 





If the volume is already mounted, it is used. The volume 
remains mounted at the end of the job step, and is not demounted 
until another job step requires the device on which the volume 
1s mounted. 


This DD statement ensures that volume integrity is maintained 


between jobs; two or more such statements in a single job can 
allocate the same device. 
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DD EXAMPLE 5 





This DD statement makes a specific request for a public, 
sharable volume to be mounted on a device. 


//DD1 DD UNIT=disk, VOLUME=SER=654321,DISP=OLD 





If the volume is already mounted, it is used. The volume 
remains mounted at the end of the job step, and is not demounted 
until another job step requires the device on which the volume 
is mounted. (This DD statement can also be used to define 
permanently resident devices. ) 


This DD statement does not ensure that the volume integrity of a 
mountable volume is maintained. It should be used with extreme 
caution in a multiprogramming environment because there is the 
possibility that a job step running concurrently might use the 
device. 
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APPEND C ROCESSING USE ABELS 





User labels can be processed by IJEBCOMPR, IEBGENER, IEBPTPCH, 
IEBUPDTE, and IEHMOVE. In some cases, user-label processing is 
automatically performed; in other cases, you must indicate the 
processing to be performed. In general, user label support 
allows the utility program user to: 


® Process user labels as data set descriptors. 
e Process user labels as data. 


e Total the processed records prior to each WRITE command 
CIEBGENER and IEBUPDTE only). 


For either of the first two options, you must specify standard 
labels (SUL) on the DD statement that defines each data set for 
which user-label processing 1s desired. For totaling routines, 
OPTCD=T must be specified on the DD statement. 


You cannot update labels by means of the IJEBUPDTE program. This 
function must be performed by a user's label processing 

routines. IEBUPDTE will, however, allow you to create labels on 
the output data set from data supplied in the input stream. See 
"LABEL Statement™ on page 282 of the chapter "IEBUPDTE Program." 


LEHMOVE does not allow exits to user routines and does not 
recognize options concerning the processing of user labels as 
data. IEHMOVE always moves or copies user labels directly to a 
new data set. See "IEHMOVE Program™ on page 340. 


Volume switch labels of a multivolume data set cannot be 
processed by IEHMOVE, IEBGENER, or IEBUPDTE. Volume switch 
labels are therefore lost when these utilities create output . 
data sets. To ensure that volume switch labels are retained, Me 
process multivolume data sets one volume at a time. 


When user labels are to be processed as data set descriptors, 
one of the user's label processing routines receives control for 
each user label of the specified type. The user's routine can 
include, exclude, or modify the user label. Processing of user 
labels as data set descriptors is indicated on an EXITS 
statement with keyword parameters that name the label processing 
routine to be used. 


The EXIT keyword parameters indicate that a user routine should 
receive control each time the OPEN, EOV, or CLOSE routine 
encounters a user label of the type specified. 


For detailed information about these and other exit routines 
available, see the Data Facility Product: Customization manual. 
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APPENDIX D.  ITEWHLIST VTOC LISTING 


Figure 148 shows a sample output produced by IEHLIST. This 
sample printout of a volume table of contents illustrates how 
each DSCB will appear on the listing. In many cases, however, 
the VTOC will not contain all the fields shown. 


A detailed explanation of the fields in the listing follows the 
figure. 





SYSTEMS SUPPORT UTILITIES~---IEHLIST PAGE 1 


DATE: 1986.093 TIME: 12.37.23 
CONTENTS OF VTOC ON VOL EXAMPL 


FORMAT 4 DSCS NO AVAIL/MAX DSCB /MAX DIRECT NO AVAIL NEXT ALT FORMAT 6 LAST FMT 1 VTOC EXTENT THIS DSCB 
VI DSCBS PER TRK BLK PER TRK ALT TRK TRKC(C~H) CC-H-R) DSCBCC~H-RI/LOW(CC-H) HIGH(C-H) (C-H-R) 
00 789 53 46 15 1770 0 5 0 7 5 0 5 14 5 0 1 
FORMAT 5 DSCB A = NUMBER OF TRKS IN ADDITION TO FULL CYLS IN THE EXTENT 
TRK FULL TRK FULL TRK FULL TRK FULL TRK FULL TRK FULL 
ADDR CYLS A ADDR CYLS A ADDR CYLS A ADDR CYLS A ADDR CYLS A ADDR CYLS A 
10 0 5 22 3 8 165 1759 0 


DSCB(C-H-R) 5 0 2 


CITT Ss eo DATA SET NAME~~--~-~---------- SER NO SEQNO DATE.CRE DATE.EXP DATE.REF EXT DSORG RECFM OPTCD BLKSIZE 
EXAMPLE.OF.COMBINED.FORMATS.ONE.AND. TWO EXAMPL 1 1986.092 1999.365 1986.092 1 IS F 00 100 
LRECL KEYLEN INITIAL ALLOC 2ND ALLOC/LAST BLK PTRC(T-R-L) USED PDS BYTES FMT 2 OR 3(C-H-R)/DSCB(C-H-R) 
100 4 ABSTR 0 5 0 3 5 0 4 
EXTENTS NO LOWCC-H) HIGHCC-H) 
0 6 0 10 14 
2MIND(M-B-C~H)/3MINDCM-B~C-H)/L2MEN(CC-H-R)/L3MIN(C-~H-R)/CYLAD(M-B-C-H) /ADLIN(M-B-C-H) /ADHIN(M-B-C-H)/NOBYT/ NOTRK 
090 0 0 00 0 0 0 0 0 0 0 0 1 0 10 «14 0 0 0 0 1 0 10 «614 70 0 
LTRAD(C-H-R)/LCYAD(C-H-R)/LMSAD(C-H-RI/LPRADCM-B-C-H-R) /NOLEV /CYLOV/ TAGDT/ PRCTR 74 OVRCT/ RORGI/PTRDSCC-H-R) 
prone 6 0 3 10 14 1 0 0 0 1 0 6 1 12 1 0 20 0 0 
( ~--~-UNABLE TO CALCULATE EMPTY SPACE. 
Sa SSeS Se DATA SET NAME-----~----------- SER NO SEQNO DATE.CRE DATE.EXP DATE.REF EXT DSORG RECFM OPTCD BLKSIZE 
EXAMPLE.OF.COMBINED. FORMATS .ONE.AND. THREE EXAMPL 1 1986.092 2001.001 1986.092 16 PS V 00 3504 


LRECL KEYLEN INITIAL ALLOC 2ND ALLOC/LAST BLK PTRCT-R-L) USED PDS BYTES FMT 2 OR 3(C-H-R)/DSCBCC-H-R) 
3500 TRKS 1 15 1 1723 5 0 6 5 0 7 





EXTENTS NO LOW(C-H)  HIGH(C-H) NO LOW(C-H) HIGH(C-H) NO LOW(C-H) HIGHCC-H) 
! 0 0 1 0 1 1 0 2 09 2 2 0 3 0 3 
! 3 0 4 0 4 4 0 5§ 0 5 5 0 6 0 6 
6 0 7 0 7 7 0 6 68 0 8 8 Oo 9 0 9 
9 1 0 1 0 10 1 1 1 1 11 1 2 1 2 
12 1 3 1 3 13 1 4 1 4 144 1 5 1 5 

15 1 6 1 6 

----ON THE ABOVE DATA SET, THERE ARE 0 EMPTY TRACK(S). 


THERE ARE 1762 EMPTY CYLINDERS PLUS 13 EMPTY TRACKS ON THIS VOLUME 
THERE ARE 789 BLANK DSCBS IN THE VTOC ON THIS VOLUME 


Figure 148. Sample Output of IEHLIST—Volume Table of Contents 
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EXPLANATION OF FIELDS IN IEHLIST FORMATTED VTOC LISTING 


Field 


DATA SET 
NAME 


SER NO 


SEQNO 


DATE.CRE 


DATE. EXP 


DATE.REF 


EXT 
DSORG 


RECFM 


OPTCD 


Explanation | 


Maximum length 4494 bytes 


Serial number of volume containing the data set. Maximum 
length 6 bytes. (The serial number may vary if the volume has 
been renamed since the data set was written.) 


Order of this volume relative to the first volume containing 
the data set. (SEQ NO will be equal to 1, unless this is a 
multivolume data set.) 7 





Creation date for the data set, in the Julian form yyyy.ddd, 
where ddd is the day and yyyy is the year from 1900 to 2155. 


Expiration date for the data set, in the Julian form yyyy.ddd, 
where ddd is the day and yyyy is the year from 1900 to 2155. 


Last referenced date for the data set, in the Julian form 


ye ee where ddd is the day and yyyy is the year from 1900 
O ; 





Number of extents (sections) the data set has on this volume. 


Data set organization (by access method): 
DA Direct CBDAM) 
IS Indexed Sequential CISAM, QISAM, BISAM) 
PO Partitioned CBPAM) 
PS Physical Sequential (SAM, QSAM, BSAM) 


The following condition may also appear after any of the above 
organizations: 


e U Unmovable Clocation-dependent) 


Record format: 
Fixed length 
Variable length 
ISCII/ASCII variable length 
Undefined length 
following options may also be specified: 
Blocked records 


Spanned records 





B 

S 

T Track overflow permitted 
A ANSI control characters 


M Machine control characters 


Option code (as supplied in the DCB used to create the data 
set). This l-byte code is given in hexadecimal characters. 
See the DSLOPTCD field in the DSCBl1 data area in Debugging 
Handbook, Volume 2. 
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sere 





BLKSIZE Block size, in bytes, up to 32760 or device maximum. 
For fixed-length records, block size 1s set. 
For variable or undefined-length records, maximum block 
s1ze 18S indicated. 
Format V unblocked records have a block size 4 greater 
than the LRECL value. 


LRECL Logical record length, in bytes, up to 32760 for non-Spanned 
and 32756 for spanned records. 





e For fixed-length records, LRECL is the actual record 
length. 


For variable-length records, LRECL is the maximum length 
permitted by the device. 





For undefined-length records, LRECL is zero. 


KEYLEN Byte length (1-255) of the key of the data records in this 
data set. 0 indicates that no key exists. 


INITIAL Describes the space attribute that was used for allocating all 
ALLOC data set extents. 


° TRKS Tracks 

e BLKS Blocks 

e CYLS Cylinders 

e ABSTR Absolute tracks Cabsolute addresses) 

























Secondary allocation quantity. If zero, the data set is 

limited to its primary allocated extent; otherwise, it can 
expand as necessary into a maximum of 15 more extents, each of 
which 1s this number of blocks, tracks, or cylinders in size. 


2ND ALLOC 













LAST BLK PTR 
C(T-R-L) 


Points to the last block written in a sequential or 
partitioned data set. The first number is the track, relative 
to the beginning of the data set. The second number is the 
block on that track. The last number is the number of bytes 
remaining on the track following that block. If this field is 
blank, no previous blocks were written. 








USED PDS 
BYTES 


In a partitioned data set in which the last directory block is 
being used, this value will be the number of bytes consumed in 
that 256-byte block. If no value appears here, the PDS has 

not yet reached the last directory block. 











FMT 2 OR 3 
CC-H-R)I/DSCB 
(C-H-R) 


Two addresses are possible here, each pointing to a data set 
control block (CDSCB) in the VTOC. The 
cylinder-head(track)-record address on the right always 
appears and points to the DSCB whose partial contents you are 
now looking at: the Format 1 DSCB. 










There may also be a Format 2 or Format 3 DSCB associated with 
it. The Format 3 address will be present only for data sets 
that have exceeded three extents, such that a Format 3 DSCB 
must be used to contain information about the additional 
extents. For ISAM data sets, which cannot exceed one extent, 
the address on the left will point to a Format 2 DSCB. 
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EXTENT NO The cylinder and head (track) address of each extent. The 


LOW (€C-H) first extent (number 0) will reflect the primary allocation 
HIGH (C-H) quantity, with each secondary extent being equal in size to 
| the secondary allocation quantity. 





The following fields apply to ISAM data sets only. 


Field 





Explanation 


Address of the first track of the second-level master index 
Cif present). The last two fields, C and H, are the cylinder 
and head C(Ctrack) address. 


(M-B-C-H) 


SMIN 
(M-B-C-H) 


Address of the first track of the third-level master index (Cif 
present). The last two fields, C and H, are the cylinder and 
head (track) address. 


Z 





L2MIN Rddrese of the last active index entry in the second-level 
(C-H-R) master index, by cylinder, head (track), and record number. 


PO 
= = 
bet bh 

am 
| | 


L3MIN | Address of the last active index entry in the third-level 
master index, by cylinder, head (track), and record number. 















CYLAD 
(M-B-C-H) 


Address of the first track of the cylinder index. The last 
a fields, C and H, are the cylinder and head Ctrack) 
address. 


Address of the first track of lowest-~level master index. 
The last two fields, C and H, are the cylinder and head 
Ctrack) address. 











ADHIN 


(M-B-C<H) Address of the first track of the highest-level master index. 


The last two fields, C and H, are the cylinder and hea 
Ctrack) address. 


d 
NOBYT Number of bytes needed to hold the highest-level index in main 
storage. 


NOTRK ‘Number of tracks occupied by the highest-level index. 








LTRAD Address of the last normal entry in the track index on the 

(C-H-R) cylinder containing the last prime data record of the data 
set, by cylinder, head (track), and record number. 

LCYAD Address of the last index entry in the cylinder index, by 

(C-H-R) cylinder, head (track), and record number. 


LPRAD Address of the last record in the prime data area. The last 


LMSAD Address of the last index entry in the master index, by 
(C-H-R) cylinder, head (track), and record number. 


(M-B-C-H-R) ; three fields, C, H, and R, are the cylinder, head (track), and 
record numbers. 


NOLEV Number of index levels. | 


CYLOV Number of tracks reserved for cylinder overflow area on each 
cylinder. 


TAGDT The user-supplied number of records tagged for deletion. This 





field is merged to and from the DCB for BISAM, QSAM scan mode, 
and resume-load. 


PRCTR Number of records in the prime data area. 
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OVRCT Number of records in the overflow area. 


Number of cylinder overflow areas that are full. 












Pointer to Format 3 DSCB if a continuation is needed to 
describe this data set. C, H, and R are the cylinder, head 
(track), and record numbers. 
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INDEX 


[a] 


ACCESS parameter 
INITT statement 319 
ACTION parameter 
FD statement 114 
actions 
IEBDG program 102 
ADD statement 
CPASWORD parameter 403 
DATA parameter 404 
DSNAME parameter 404 
IEBUPDTE program 277 
IEHPROGM program 402 
INHDR parameter 285 
INTLR parameter 286 
LEVEL parameter 286 
LIST parameter 286 
MEMBER parameter 286 
NAME parameter 286 
NEW parameter 287 
OUTHDR parameter 287 
OUTTLR parameter 287 
PASWORD2 parameter 406 
SEQFLD parameter 289 
SOURCE parameter 289 
SSI parameter 289 
TOTAL parameter 290 
TYPE parameter 407 
VOL parameter 408 
adding data set passwords 392 
ADDR parameter 
DFN statement 19 
ADHIN field in formatted VTOC 
listing 430 
ADLIN field in formatted VTOC 
listing 430 
alias name 
changing member 386 
IEBCOPY program 38 
in partitioned directory 284 
ALIAS parameter 
BLDA statement 403 
DLTA statement 403 
ALIAS statement 
IEBUPDTE program 284 
NAME parameter 286 
altering 
load modules 40 
ALTERMOD statement 
IEBCOPY program 51 
LIST parameter 55 
OUTDD parameter 57 
ANSI volume access security 
ACCESS parameter 319 
anyname DD statement 
IEHINITT program 317 
anynamel DD statement 
IEBCOPY program 45 
IEHLIST program 333 
IEHMOVE program 356 
IEHPROGM program 396 
anyname2 DD statement 
IEBCOPY program 45 
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IEHLIST program 333 

IEHMOVE program 356 

TEHPROGM program 396 
APF CAuthorized Program Facility) 12 
assessing tape quality in library 418 
ASSIGN parameter 

CHARSET statement 197 

GRAPHIC statement 198 
ATTACH macro 

format, to invoke utility 

programs 12 

invoking utility programs with 12 

Authorized Program Facility CAPF) 12 


backup copy 
creating 1492, 236 
example 79 
ITEBCOPY program 37 
verifying 
IEBCOMPR program 24 
bbbb parameter 
TRACK statement 309 
VTOC statement 309 
BDAM data set 
cataloging in an OS CVOL 386 
copying 348 
moving 348 
scratching 385 
with variable-spanned records 
copying 352 
moving 352 — 
BLDA statement 
ALIAS parameter 403 
CVOL parameter 404 
TEHPROGM program 400 
INDEX parameter 405 
BLDG statement 
CVOL parameter 404 
DELETE parameter 404 
EMPTY parameter 405 
ENTRIES parameter 405 
ITEHPROGM program 401 
INDEX parameter 405 
BLDX statement 
CVOL parameter 404 
ITEHPROGM program 399 
INDEX parameter 405 
BLKSIZE field in formatted VTOC 
listing 429 
block size 
unloaded data set 46 
buffer size 
ITEBCOPY program 44 
ITEHMOVE program 345 
buffers 
record heading 239 
building an index 
in an OS CVOL 386 
building an index alias 
in an OS CVOL 387 


u 
Se us 











card input 
copying to tape 


examples 158-161 
printing 

example 161 
punching 

example 269 


CATALOG parameter 

COPY CATALOG statement 367 

MOVE CATALOG statement 367 
cataloged data sets 

copying qualifying 349 

moving qualifying 349 
cataloging 

data sets in an OS CVOL 386 
CATLG parameter 

COPY DSGROUP statement 367 

COPY DSNAME statement 367 

COPY PDS statement 367 

COPY VOLUME statement 367 
CATLG statement 

CVOL parameter 404 

DSNAME parameter 404 

IEHPROGM program 398 

VOL parameter 40 
cccc parameter 

TRACK statement 309 

VTOC statement 309 
CDINCR parameter 

PUNCH statement 254 
CDSEQ parameter 

PUNCH statement 254 
CGMID parameter 

TABLE statement 198 
CHANGE statement 

COLUMN parameter 285 

IEBUPDTE program 277 

INHDR parameter 285 

INSERT parameter 285 

INTLR parameter 286 

LEVEL parameter 286 

LIST parameter 286 

MEMBER parameter 286 

NAME parameter 286 

NEW parameter 287 

OUTHDR parameter 287 

OUTTLR parameter 287 

SEQFLD parameter 289 

SGURCE parameter 289 

SSI parameter 289 

TOTAL parameter 290 

UPDATE parameter 290 
changing data set organization 
channel codes 

conventions for channel 1, channel 9, 

channel 12 199 

identified in FCB module 172 

specifying in FCB statement 199 
character arrangement table module 168 

creating 178, 192 

examples of building and 

modifying 221-224 

structure 179 
character arrangement table module 

listing 181 

CHARSET module listing, IEBIMAGE 
program 186 
CHARSET module structure 

for 3800 Model 1 186 

for 3800 Model 3 186 


272 











CHARSET statement 

ASSIGN parameter 197 

GCM parameter 202 

ID parameter 203 

IEBIMAGE program 

REF parameter 208 

SEQ parameter 209 
CHx parameter 

FCB statement 199 
CNTRL parameter 

PRINT statement 254 

PUNCH statement 254 
coding 

utility control statement 5 
COLUMN parameter 

CHANGE statement 285 
comments 

utility control statement 5 
COMPARE statement 

ITEBCOMPR program 27 

TYPORG parameter 29 
comparing 

partitioned data sets 24 

examples 33-35 
sequential data sets 24 
examples 30-32 

compatibility of volume size 

TEHMOVE program 
compressing a data set 40 
CONNECT statement 

CVOL parameter 404 

IEHPROGM program 401 

INDEX parameter 405 

VOL parameter 408 
connecting two OS CVOLs 
continuing 

utility control statement 5 
control characters 

PREFORM parameter 260 
control statements 4 
controlling 

ICAPRTBL program 16 

IEBCOMPR program 25 

ITEBCOPY program 44 

IEBDG program 103 

IEBEDIT program 133 

ITEBGENER program 1466 

IEBIMAGE program 188 


194 


388 


IEBISAM program 240 
IEBPTPCH program 248 
ITEBUPDTE program 273 


IEHATLAS program 307 
IEHINITT program 316 
IEHLIST program 331 


IEHMOVE program 353 

IEHPROGM program 394 

IFHSTATR program 420 
CONV parameter 

LABELS statement 254 
conversion 

FIELD parameter 154 
converting 

fields 254 


COPIES parameter 
COPYMOD statement 200 
COPY CATALOG statement 
CATALOG parameter 367 
COPYAUTH parameter 368 
CVOL parameter 368 


FROM parameter 370 
FROMDD parameter 370 
IEHMOVE program 364 


TO parameter 371 
TODD parameter 372 


Index 
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UNLOAD parameter 372 
COPY DSGROUP statement 
CATLG parameter 367 
COPYAUTH parameter 368 
CVOL parameter 368 
DSGROUP parameter 368 
IEHMOVE program 361 
PASSWORD parameter 371 
TO parameter 
TODD parameter 372 
UNCATLG parameter 372 
UNLOAD parameter 372 
COPY DSNAME statement 
CATLG parameter 367 
COPYAUTH parameter 368 
CVOL parameter 368 
DSNAME parameter 369 
FROM parameter 370 
FROMDD parameter 370 
IEHMOVE program 360 
RENAME parameter 371 
TO parameter 371 
TODD parameter 372 
UNCATLG parameter 372 
UNLOAD parameter 372 
copy modification module 168 
creating 177, 
examples of building 218-22] 
ITEBIMAGE listing 
with overrun notes 196 
copy operation 
excluding members 39 
COPY PDS statement 
CATLG parameter 367 
COPYAUTH parameter 368 
CVOL parameter 368 
EXPAND parameter 369 
FROM parameter 370 
FROMDD parameter 370 
IEHMOVE program 363 
PDS parameter 37] 
RENAME parameter 371 
TO parameter 371 
TODD parameter 372 
UNCATLG parameter 372 
UNLOAD parameter 372 
COPY statement 
IEBCOPY program 49 
INDD parameter 55 
LIST parameter 55 
OUTDD parameter 57 
COPY VOLUME statement 
CATLG parameter 367 
COPYAUTH parameter 368 
LTEHMOVE program 365 
PASSWORD parameter 371 
TO parameter 371 
TODD parameter 372 
UNLOAD parameter 372 
VOLUME parameter 372 
COPYAUTH parameter 
COPY CATALOG statement 368 
COPY DSGROUP statement 368 
COPY DSNAME statement 368 
COPY PDS statement 368 
COPY VOLUME statement 368 
MOVE CATALOG statement 368 
MOVE DSGROUP statement 368 
MOVE DSNAME statement 368 
MOVE PDS statement 368 
MOVE VOLUME statement 368 
copying 
BDAM data sets 348 
with variable-spanned records 352 
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data sets 344 
examples 1490-141 
entire volume of data sets 35l 
ISAM data set 236 
example 243 
job statements and steps 
examples 137-139 
load modules 41 
member with an alias 38 
multivolume data sets 348 
OS CVOL 350 
partitioned data sets 346 
examples 60 
IEBCOPY program 36, 37 
qualifying cataloged data sets 
sequential data sets 345 
examples 158-161 
unloaded data sets 349 
unmovable data sets 349 


copying or loading unloaded data sets 


LEBCOPY program 


COPYMOD module listing, IEBIMAGE 
program 178 

COPYMOD module structure, IEBIMAGE 
program 177 

COPYMOD statement 


COPIES parameter 200 
IEBCOPY program 52 
IEBIMAGE listing with overrun 
notes 
IEBIMAGE program 191 
INDD parameter 55 
LINES parameter 203 
LIST parameter 55 
MAXBLK parameter 56 
MINBLK parameter 57 
OUTDD parameter 57 
POS parameter 207 
TEXT parameter 211 


COPYP parameter 


FCB statement 200 


CPASWORD parameter 


ADD statement 403 
DELETEP statement 403 
REPLACE statement 403 


CREATE parameter 


REPEAT statement 115 


CREATE statement 


EXIT parameter 115 
FILL parameter 115 
IEBDG program 110 
INPUT parameter 118 
NAME parameter 119 
PICTURE parameter 120 
QUANTITY parameter 121 


creating data set libraries 272 
CVOL parameter 


BLDA statement 404 

BLDG statement 4094 

BLDX statement 404 

CATLG statement 404 
CONNECT statement 404 

COPY CATALOG statement 368 
COPY DSGROUP statement 368 
COPY DSNAME statement 368 
COPY PDS statement 368 
DLTA statement 404 

DLTX statement 404 

INCLUDE statement 368 

MOVE CATALOG statement 368 
MOVE DSGROUP statement 368 
MOVE DSNAME statement 368 
MOVE PDS statement 368 
RELEASE statement 404 














\ 
! liars 
( 





REPLACE statement 368 
UNCATLG statement 404 
CYCLE parameter 
FD statement 117 
CYLAD field in formatted VTOC 
listing 430 
CYLOV field in formatted VTOC 
listing 430 


data check 
unblockable 199 
DATA parameter 
ADD statement 404 
EXITS statement 152 
LABELS statement 28, 152, 255 
REPLACE statement 404 
data set 
comparing 24 
copying 344 
edited 144 
merging 
example 94 
moving 344 
printing 246 
punching 246 
re-creating 40 
space allocation 
ITEHMOVE program 342 
data set libraries 
creating 272 
updating 272 


DATA SET NAME field in formatted VTOC 


listing 428 

data set organization 
changing 272 

data set passwords 
maintaining 390 

data set utility programs 
summary 1 

data sets 
reblocking 343 

data statements 


for user-designed characters 201 


IEBUPDTE program 282 
DATE parameter 
LISTVTOC statement 335 
DATE.CRE field in formatted VTOC 
listing 428 
DATE.EXP field in formatted VTOC 
listing 428 
DATE.REF field in formatted VTOC 
listing 428 
DCB control information 
overriding 237 
DD statement for defining mountable 
device 
examples 423 
dddd parameter 
TRACK statement 309 
VTOC statement 309 
ddname parameter 
INITT statement 319 
ddnameaddr subparameter 
PARAM parameter 
ATTACH macro 13 
LINK macro 13 
DDNMELST 13 
debugging aid 
IEBDG program 100 





DEFAULT parameter 
FCB statement 201 
defective track 
replacing 305 
examples 310-312 
DELETE parameter 
BLDG statement 404 
TABLE statement 201 
DELETE statement 
IEBUPDTE program 280 
SEQ1 parameter 288 
SEQ2 parameter 288 
DELETEP statement 
CPASWORD parameter 403 
DSNAME parameter 404 
ITEHPROGM program 403 
PASWORDI1 parameter 405 
VOL parameter 08 
deleting an index 
in an OS CVOL 386 
deleting an index alias 
in an OS CVOL 387 
deleting data set passwords 393 
DELSEG parameter 
INCLUDE statement 201 
detail statement 
TEBUPDTE program 280 
restrictions 28l 
DEVICE parameter 
OPTION statement 202 
device support 
device variable 6 
device, mountable 
DD statement for defining 423 
DEVT parameter 
DFN statement 19 
DFN statement 
ADDR parameter 19 
DEVT parameter 19 
FCB parameter 19 
FOLD parameter 19 
ICAPRTBL program 17 
UCS parameter 20 
DISP parameter 
INITT statement 319 
DLTA statement 
ALIAS parameter 403 
CVOL parameter 404 
ITEHPROGM program 400 
DLTX statement 
CVOL parameter 404 
IEHPROGM program 400 
INDEX parameter 405 
DSD statement 
IEBDG program 107 
INPUT parameter 117 
OUTPUT parameter 119 
DSGROUP parameter 
COPY DSGROUP statement 368 
EXCLUDE statement 368 
MOVE DSGROUP statement 368 
DSNAME parameter 
ADD statement 404 
CATLG statement 404 
COPY DSNAME statement 369 
DELETEP statement 404 
INCLUDE statement 369 
LIST statement 404 
LISTPDS statement 335 
LISTVTOC statement 335 
MOVE DSNAME statement 369 
RENAME statement 404 
REPLACE statement 369, 404 
SCRATCH statement 404 


Index 
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UNCATLG statement 404 
DSORG field in formatted VTOC 
listing 428 
DUMP parameter 
LISTPDS statement 336 
LISTVTOC statement 336 
dynamic invocation 12 


Le | 


EDIT statement 
IEBEDIT program 134 
NOPRINT parameter 135 
START parameter 135 
STEPNAME parameter 135 
TYPE parameter 136 
edited data set 
creating 144 
printing 247 
punching 247 
EHMOVE program 
data set space allocation 342 
EMPTY parameter 
BLDG statement 405 
END statement 
ICAPRTBL program 18 
IEBDG program 114 
user-information parameter 20 
ENDUP statement 
ITEBUPDTE program 285 
ENTRIES parameter 
BLDG statement 405 
EP parameter 
ATTACH macro 12 
LINK macro 12 
ERP Cerror recovery program) 419 
ERROR parameter 
EXITS statement 28 
ESV Cerror statistics by volume) 
data 417 


evaluating tape quality in library 418 


examples 


DD statement for defining mountable 


devices 423 
ICAPRTBL program 20 
ITEBCOMPR program 29 
IEBCOPY program 57 
IEBDG program 122 
JEBEDIT program 136 
IEBGENER program 157 
ITEBIMAGE program 212 
IEBISAM program 242 
IEBPTPCH program 263 
IEBUPDTE program 290 
IEHATLAS program 309 
IEHINITT program 321 
IEHLIST program 337 
IEHMOVE program 373 
ITEHPROGM program 409 
IFHSTATR program 420 
EXCLUDE parameter 
EDIT statement 136 
EXCLUDE statement 
DSGROUP parameter 368 
IEBCOPY program 54 
ITEHMOVE program 366 
MEMBER parameter 56, 371 
excluding members 
copy operation 39 
exclusive copy or load processing 
EXEC statement 
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IEBCOMPR program 26 
IEBCOPY program 45 
IEBDG program 104 
IEBEDIT program 133 
ITEBGENER program 147 
ITEBIMAGE program 188 
ITEBISAM program 240 
IEBPTPCH program 248 
ITEBUPDTE program 274 
IEHATLAS program 307 
TEHINITT program 316 
IEHLIST program 332 
IEHMOVE program 354 
IEHPROGM program 9395 
IFHSTATR program 420 


EXIT parameter 


CREATE statement 115 


exit routine 


identifying 150 
IEBPTPCH program 252 
linkage 422 


EXITS statement 


DATA parameter 152 

ERROR parameter 28 

TEBCOMPR program 27 

IEBGENER program 150 
IEBPTPCH program 252 

INHDR parameter -28, 155, 257 
INREC parameter 258 | 

INTLR parameter 29, 155, 258 
IOERROR parameter 155 

KEY parameter 155 

OUTHDR parameter 156 

OUTREC parameter 259 

OUTTLR parameter 156 

PRECOMP parameter 29 

TOTAL parameter 157 


EXPAND parameter 


COPY PDS statement 369 
MOVE PDS statement 369 


EXT field in formatted VTOC listing 
EXTENT NO LOW CC-H) HIGH (C-H) field in 
formatted VTOC listing 430 


[| 


FCB (forms control buffer) 


loading 


FCB (forms control buffer) module 


creating 172, 190 
examples of building 213-218 
IEBIMAGE listing 175 


FCB parameter 


DFN statement 19 


FCB statement 


CHx parameter 199 
COPYP parameter 200 
DEFAULT parameter 201 
FORMEND parameter 19 
ICAPRTBL program 18 
IEBIMAGE program 190 
LINES parameter 203 
LNCH parameter 19 

LPI parameter 19, 205 
PSPEED parameter 207 
SIZE parameter 210 
statement 

ACTION parameter 114 
FILL parameter 115 
FORMAT parameter 116 
FROMLOC parameter 116 











IEBDG program 108 
( INDEX parameter 117 


FCB statement 19 

forms control buffer CFCB) 
loading 18 

forms control buffer module 
See FCB module 

FROM parameter 
COPY CATALOG statement 370 
COPY DSNAME statement 370 
COPY PDS statement 370 
INCLUDE statement 370 
MOVE CATALOG statement 370 
MOVE DSNAME statement 370 
MOVE PDS statement 370 
REPLACE statement 370 

FROMDD parameter 
COPY CATALOG statement 370 
COPY DSNAME statement 370 


INPUT parameter 117 
LENGTH parameter 118 
NAME parameter 119 
PICTURE parameter 120 
SIGN parameter 121 
STARTLOC parameter Il2l 
field 
altering contents 
IEBDG program 114 
changing the contents 
IEBDG program 102 
converting 254 
defining the contents 
IEBDG program 100, 108 
editing information 256 
FIELD parameter COPY PDS statement 370 
RECORD statement 153-1546, 256 MOVE CATALOG statement 370 
FILL parameter fOVE DSNAME statement 370 
CREATE statement 115 MOVE PDS statement 370 
FD statement 115 FROMLOC parameter 
fixed action FD statement 116 
FMT 2 OR 3 DSCB field in formatted VTOQC full copy or load processing 38 
listing 429 function statement 
FOLD parameter IEBUPDTE program 277 
DFN statement 19 restrictions 278 
FORMAT parameter functions, utility program 
FD statement 116 guide to 8-ll 


LISTPDS statement 336 


LISTVTOC statement 336 
GCM parameter 


formatted VTOC listing 
ADHIN field 430 
ADLIN field 430 
BLKSIZE field 429 
CHARSET statement 202 
GRAPHIC statement 202 
GCMLIST parameter 
TABLE statement 202 


eo CYLAD field 430 
( CYLOV field 430 
GENERATE statement 
IEBGENER program 150 


DATA SET NAME field 428 
MAXFLDS parameter 156. 


DATE.CRE field 428 

DATE.EXP field 428 
MAXGPS parameter 156 
MAXLITS parameter 156 


DATE.REF field 428 
DSORG field 428 
MAXNAME parameter 156 


EXT field 428 

EXTENT NO LOW (C-H) HIGH (C-H) 
field 430 

FMT 2 OR 3 DSCB field 429 


TEHLIST program 
INITIAL ALLOC field 429 


generating output records 113 
generation data group index 


KEYLEN field 429 building and maintaining in an QS 
LAST BLK PTR field 429 CVOL 389 

LCYAD field 430 graphic character modification 

LMSAD field 430 module 168 

LPRAD field 430 creating 193 

LRECL field 429 examples of building and 

LTRAD field 430 listing 224-231 

L2MIN field 430 IEBIMAGE listing 183 

L3MIN field 430 structure 183 

NOBYTE field 430 graphic character modification module 
NOLEV field 430 structure 

NOTRK field 430 for 3800 Model 1 183 

OPTCD field 428 for 3800 Model 3 183 

OVRCT field 431 graphic character modification module, 
PRCTR field 6430 creating 182 

PTRDS field 431 GRAPHIC module listing 

RECFM field 428 IEBIMAGE program 183 

RORG] field 431 GRAPHIC module structure 

SEQNO field 428 for 3800 Model 3 183 

SFR NO field 428 GRAPHIC module structure for 

Tas? i ald 430 3800 Model 1 183 

USt° °o* BYTES field 429 GRAPHIC module structure, IEBDG 


2MIND field 430 

22ND ALLOC field 429 

3SMIND field 430 
FORMEND parameter 


program 
GRAPHIC statement 
ASSIGN parameter 198 
GCM parameter 202 





Index 437 





IEBIMAGE program 193 
REF parameter 209 
SEQ parameter 209 


[| 


hdingaddr subparameter 
PARAM parameter 
ATTACH macro 13 
LINK macro 13 
HDNGLIST 13 
hhhh parameter 
TRACK statement 309 
VTOC statement 309 


[| 


ICAPRTBL program 
description 15 
examples 20 
executing 15 
input and output 16 
loading FCB (forms control 


buffer) 18 
loading universal character set 
buffer 18 


parameters 19 
utility control statements 17 
17 


DFN 

END 18 
FCB 18 
JOB 17 
UCS 18 


wait state codes 15 
ID parameter 

CHARSET statement 203 
IDENT parameter 

RECORD statement 155, 
IEBCOMPR program 

comparing data sets 24 

description 

examples 29 

EXEC statement 26 

input and output 25 

job control statements 26 

JOB statement 26 

parameters 28 

return codes 25 

SYSIN DD statement 26 

SYSPRINT DD statement 26 

SYSUT1 DD statement 26 

SYSUT2 DD statement 26 

utility control statements 27 


257 


COMPARE 27 
EXITS 27 
LABELS 28 


verifying a backup copy 24 
ITEBCOPY program 

altering load modules in place 40 

anynamel DD statement 45 

anynamee2 DD statement 45 

buffer size 44 

compressing a data set 40 

copying and reblocking load 

modules 

copying members with aliases 38 

patie all or loading unloaded data 

sets 
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creating a copy modification 
module 177 | 

creating backup copy 37 
description 36 

examples 57 

excluding members 39 

input and output 43 

inserting RLD Crelocation dictionary) 
counts 

job control statements 44 

load operation 536 

merging partitioned data sets 40 
overlay load modules 42 
parameters 55 

PARM parameter CEXEC statement) 44 
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REPLACE 402 
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example 420 
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SYSUT2 DD statement 420 
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IEBIMAGE program 195 
IEHMOVE program 365 
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NUMBER statement 285 
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COPYMOD statement 55 
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summary 2 
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DLTX statement 405 
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REPRO statement 285 
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INITT statement 
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DISP parameter 319 
ITEHINITT program 318 
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IEBCOPY program 43 
IEBDG program 103 
IEBEDIT program 132 
IEBGENER program 145 
IEBIMAGE program 187 
IEBISAM program 239 
IEBPTPCH program 247 
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ITEMHLIST program 330 
TEHMOVE program 353 
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installation considerations 6 
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example 245 
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IEBISAM program 240 
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label 
utility control statement 4 
LABEL statement 
IEBUPDTE program 282 
LABELS parameter 
RECORD statement 156 
LABELS statement 
CONV parameter 254 
DATA parameter 28, 152, 255 
IEBCOMPR program 28 
IEBGENER program 151 
IEBPTPCH program 253 
LABTYPE parameter 
INITT statement 319 
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listing 429 | 
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FD statement 118 
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ADD statement 286 
CHANGE statement 286 
REPL statement 286 
REPRO statement 286 
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ITEHMOVE program 354 
LINES parameter 
COPYMOD statement 203 
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programs 12 
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LIST parameter 
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ALTERMOD statement 55 
CHANGE statement 286 
COPY statement 55 
COPYMOD statement 55 
REPL statement 286 
REPRO statement 286 
LIST statement 
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IEHPROGM program 403 
PASWORD1 parameter 405 
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LISTCTLG statement 
IEHLIST program 334 
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sample output by IEHLIST program 427 
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example 338 
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FORMAT parameter 336 
IEHLIST program 334 
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DATE parameter 335 
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IEHLIST program 335 
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load module 
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load operation 
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examples 21-23 
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IEBCOPY program 
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TABLE statement 204 
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logical records 
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example 245 
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MEMBER statement 
IEBGENER program 151 
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COPYMOD statement 57 
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module names 
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modules 
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defining 423 
MOVE CATALOG statement 
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COPYAUTH parameter 368 
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FROM parameter 370 
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IEHMOVE program 363 
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TODD parameter 372 
UNLOAD parameter 372 
MOVE DSGROUP statement 
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ITEHMOVE program 361 
PASSWORD parameter 371 
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UNCATLG parameter 372 
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MOVE PDS statement 
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CVOL parameter 368 
EXPAND parameter 369 
FROM parameter 370 
FROMDD parameter 370 
IEHMOVE program 362 
PDS parameter 371 
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TODD parameter 372 
UNCATLG parameter 372 
UNLOAD parameter 372 
MOVE VOLUME statement 
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TEHMOVE program 364 
PASSWORD parameter 371 
TO parameter 371 
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UNLOAD parameter 372 
VOLUME parameter 372 
moving 
BDAM data sets 348 
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multivolume data sets 348 
OS CVOL 350 
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sequential data sets 345 
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examples 83-92 
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ADD statement 286 
ALIAS statement 286 
CHANGE statement 286 
CREATE statement 119 
FD statement 119 
MEMBER statement 156, 259 
REPL statement 286 
REPRO statement 286 
NAME statement 
IEBIMAGE program 195. 
module name 206 
R parameter 207 
naming a new library module 195 
naming conventions for modules 
IEBIMAGE program 172 
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ADD statement 287 
CHANGE statement 287 
REPL statement 287 
REPRO statement 287 
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RENAME statement 405 
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NOBYTE field in formatted VTOC 
listing 430 
NODE parameter 
LISTCTLG statement 336 
NOLEV field in formatted VTOC 
listing 
NOPRINT parameter 
EDIT statement 135 
notation conventions 5 
NOTRK field in formatted VTOC 
listing 430 
NUMBER statement 
IEBUPDTE program 280 
INCR parameter 285 
INSERT parameter 285 
NEW] parameter 287 
SEQ] parameter 288 
SEQ2 parameter 288 
NUMBTAPE parameter 
INITT statement 319 


operands 
utility control statements 4 
operation 
utility control statement 4 
operation groups 
IEBIMAGE program 190 
OPTCD field in formatted VTOC 
listing 428 
OPTION statement 
DEVICE parameter 202 
ITEBIMAGE program 195 
OVERRUN parameter 196, 206 
optionaddr subparameter 
PARAM parameter 
ATTACH macro 12 
LINK macro 12 
OPTLIST 12 
OS CVOL 
building an index 386 
building an index alias 387 


building and maintaining generation 


data group index 389 
cataloging data sets in 386 
connecting or releasing 388 
copying 350 
deleting an index 386 
deleting an index alias 387 
listing entries 325, 334 

examples 337 
moving 350 
OUTDD parameter 
ALTERMOD statement 57 
COPY statement 57 
COPYMOD statement 57 
OUTHDR parameter 
ADD statement 287 
CHANGE statement 287 
EXITS statement 156 
REPL statement 287 
REPRO statement 287 
output data set 
contents 136 
creating 132 
reblocking 145 
output data sets 
including job steps 134 
OUTPUT parameter 
DSD statement 119 














output partitioned member 
example 126 
output records 
creating 
example 124, 128 
example 31 
generating 113 
OUTREC parameter 
EXITS statement 259 
OUTTLR parameter 
ADD statement 287 
CHANGE statement 287 
EXITS statement 156 
REPL statement 287 
REPRO statement 287 
overlay load modules 
ITEBCOPY program 42 
OVERRUN parameter 
OPTION statement 196, 206 
OVRCT field in formatted VTOC 
listing 43l 
OWNER parameter 
INITT statement 320 
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page margins 210 
PARAM parameter 
ATTACH macro 12 
LINK macro 12 
parinset DD statement 
IEBDG program 106 
PARM parameter CEXEC statement) 
ITEBCOPY program 
IEBDG program 105 
IEBIMAGE program 242 
IEBISAM program 241 
ITEBUPDTE program 274 
IEHINITT program 317 
IEHLIST program 332 
ITEHMOVE program 354 
LEHPROGM program 395 
parout DD statement 
IEBDG program 106 
partitioned data set 
cataloging in an OS CVOL 386 
changing to sequential 272 
comparing 
examples 33-35 
compressing 40 
copying 346 
examples 60, 80 
ITEBCOPY program 536, 3/7 
copying members 
examples 61 
creating 
from sequential input 142 
creating a backup copy 
example 79 
creating a library 272 
creating from sequential input 
examples 162-163 
expanding 143 
incorporating source language 
modifications 
IBM-provided 272 
user-generated 272 
merging 
IEBCOPY program 36, 40 
modifying 272 
moving 346 








multiple copy operations 
examples 83-92 
printing 
example 265-266 
renaming members 39 
replacing identically named 
members 38 
replacing selected members 39 
scratching 385 
selected members 
printing 247 
punching 247 
unloading 
example 93 
partitioned data set directory 
comparing data sets 24 
listing 325 
dump format 32/7 
edited format 326 
unedited format 32/7 
listing entries 334 
example 338 
printing 247 
example 268 
punching 247 
partitioned output 151 
PASSWORD data set 
listing entries 393 
PASSWORD parameter 
COPY DSGROUP statement 371 
COPY VOLUME statement 371 
MOVE DSGROUP statement 37] 
MOVE VOLUME statement 371 
password-protected data set 
scratching 385 
passwords 
data set 
adding 392 
deleting 393 
replacing 392 
listing entries 393 
passwords, maintaining 
data set 390 
PASHORDI1 parameter 
DELETEP statement 405 
LIST statement 405 
REPLACE statement 405 
PASWORD2 parameter 
ADD statement 406 
REPLACE statement 406 
patterns of test data 
IBM supplied 100, 116 
PDS parameter 
COPY PDS statement 371 
MOVE PDS statement 371 
PICTURE parameter 
CREATE statement 120 
FD statement 120 
pictures, user-specified 101 
example 129 
POS parameter 
COPYMOD statement 207 
POSITION parameter 
EDIT statement 136 
POWER parameter 
ITEHMOVE program 354 
PRCTR field in formatted VTOC 
listing 430 
PRECOMP parameter 
EXITS statement 29 
PREFORM parameter 
PRINT statement 260 
PUNCH statement 260 
PRINT statement 
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CNIRL parameter 254 
ITEBPTPCH program 250. 
INITPG parameter 258 


MAXFLDS parameter 258 
MAXGPS parameter 258 
MAXLINE parameter 258 
MAXLITS parameter 259 
MAXNAME parameter 259 
PREFORM parameter 260 
SKIP parameter 260 

STOPAFT parameter 261 
STRTAFT parameter 261 
TOTCONV parameter 26] 
TYPORG parameter 262 


printing 
data set 246 
logical records 
ISAM data set 238 
partitioned data set 


example 265-266 
partitioned data set directory 247 
example 268 


sequential data set 
examples 264, 267 

printing a data set 246 
printing edited data set 247 
printing selected members 

partitioned data set 247 
printing selected records 247 
PSPEED parameter 

FCB statement 207 
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listing 431 
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CDSEQ parameter 254 
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MAXLITS parameter 259 
MAXNAME parameter 259 
PREFORM parameter 260 
SKIP parameter 260 

STOPAFT parameter 261 
STRTAFT parameter 261 
TOTCONV parameter 261 
TYPORG parameter 262 


punching 

data set 246 

partitioned data set directory 247 

sequential data set 

examples 2649, 267 

punching a data set 246 
punching edited data set 247 
punching selected members 

partitioned data set 247 
punching selected records 247 
PURGE parameter 
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R parameter 
NAME statement 207 
RACF protection 
IEHMOVE program 34 
RANGE parameter 
FD statement 117 
re-creating a data set 
reblocking 
data sets 343 
load modules 41 
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output data set 145 
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listing 428 
record 
defining contents 
quantity 1 
record format 
changing 46 
record group 
151, 


defining 252 


dividing sequential data sets 


printing 
example 270 

record heading buffer 
RECORD statement 
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IDENT parameter 

IEBGENER program 

IEBPTPCH program 

LABELS parameter 1] 
REF parameter 
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CHARSET statement 208 
GRAPHIC statement 209 


referencing aids 
special 7 
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MOVE DSNAME statement 
MOVE PDS statement 371 
RENAME statement 
DSNAME parameter 404 
LEHPROGM program 398 
MEMBER parameter 405 
NEWNAME parameter 405 
VOL parameter 408 
renaming 
data sets 386 
members 386 
renaming members 
selected 39 
REPEAT statement 
CREATE parameter 115 
LTEBDG program 113 
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IEBUPDTE program 
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OUTHDR parameter 287 
OUTTLR parameter 28/7 
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SOURCE parameter 289 
SSI parameter 289 
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CVOL parameter 368 
DATA parameter 404 
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ITEHMOVE program 367 
ITEHPROGM program 402 
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PASWORD1 parameter 405 
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SOURCE parameter 289 
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IEBCOMPR program 25 
IEBCOPY program 43 
IEBDG program 103 
IEBDG user exit routine 110 
IEBEDIT program 132 
IEBGENER program 146 
IEBIMAGE program 187 
IEBISAM program 240 
IEBISAM user exit routine 239 
IEBPTPCH program 248 
ITEBUPDTE program 273 

UPDATE parameter 283 
ITEHATLAS program 306 
IEHINITT program 315 
IEHLIST program 331 
IEHMOVE program 353 
ITEHPROGM program 394 

4 


ripple action 


example 123 — 


RLD Crelocation dictionary) 


inserting counts 42 


roll action 
RORG1] field in formatted VTOC 


listing 43] 


rrkk parameter 


TRACK statement 309 
VTOC statement 309 





Ls | 


S parameter 
TRACK statement 309 
SCRATCH statement 
DSNAME parameter 404 
TEHPROGM program 397 
MEMBER parameter 405 
PURGE parameter 406 
SYS parameter 406 
VOL parameter 408 
VTOC parameter 408 
scratching 
BDAM data sets 385 
data sets named by the operating 
system 
ISAM data sets 385 
members of partitioned data sets 


password-protected data sets 5385 


sequential data sets 385 
SELECT statement 
IEBCOPY program 53 
IEHMOVE program 366 
MEMBER parameter 56, 371 
selecting members to be copied 37 
selecting members to be loaded or 
unloaded 37 
selective copy or load processing 
SEQ parameter 
CHARSET statement 209 
GRAPHIC statement 209 
SEQFLD parameter 
ADD statement 289 
CHANGE statement 289 
REPL statement 289 
REPRO statement 289 
SEQNO field in formatted VTOC 
listing 428 
seqout DD statement 
IEBDG program 106 
sequential data set 
as backup copy 236 
cataloging in an QOS CVOL 386 
changing to partitioned 272 
comparing 24 
examples 30-32 
copying 345 
examples 158-161 
defining fields 
example 122 
editing and copying 
examples 1649-167 
from ISAM data set 
examples 243 
incorporating source language 
modifications 
IBM-provided 2/72 
user-generated 2/72 
loading 
example 94 
modifying 2/72 
moving 345 


printing 

examples 264, 267 
punching 

examples 264, 267 
scratching 


sequinset DD statement 
IEBDG program 105 
SEQ] parameter 


Index 
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DELETE statement 288 

NUMBER statement 288 
SEQ2 parameter 

DELETE statement 288 

NUMBER statement 288 


SER NO field 
listing 428 
SER parameter 
INITT statement 320 
SETPRT SVC instruction 
shift left action 114 
shift right action 114 
SIGN parameter 
FD statement 121 
SIO usage count 420 
SIZE parameter 
FCB statement 210 
SKIP parameter 
PRINT statement 260 
PUNCH statement 260 
SMF (Csystem management facilities) 
type 21 records 
format 417 
SOURCE parameter 
ADD statement 289 
CHANGE statement 289 
REPL statement 289 
REPRO statement 289 
space allocation 
data set 
ITEHMOVE program 
IEBCOPY program 47 
special referencing aids 7 
SSI parameter 
ADD statement 289 
CHANGE statement 289 
REPL statement 289 
REPRO statement 289 
standard label set 


in formatted VTOC 


171 


342 


placing on magnetic tape 314 
START parameter 

EDIT statement 135 
STARTLOC parameter 

FD statement 121 
STEPNAME parameter 

EDIT statement 135 
STOPAFT parameter 

PRINT statement 261 

PUNCH statement 261 
storage requirements 

ITEBIMAGE program 168 

SYS1.IMAGELIB data set 169 
STRTAFT parameter 

PRINT statement 261 

PUNCH statement 261 
SYNAD exit routine 419 
SYS parameter 

SCRATCH statement 406 
SYSCTLG data set 

defining 40l 
SYSIN DD statement 

IEBCOMPR program 26 

IEBCOPY program 46 

IEBDG program 105 

IEBEDIT program 133 

IEBGENER program 147, 1469 


IEBIMAGE program 189 


IEBPTPCH program 249 
IEBUPDTE program 276 
IEHATLAS program 307 
IEHINITT program 317 
IEHLIST program 333 

JTEHMOVE program 357 

IEHPROGM program 397 
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SYSOUT data set 

printing aoe 
example 271 PS 

SYSPRINT DD statement Me > 
IEBCOMPR program 26 — 
IEBCOPY program 44 
IEBDG program 105 
IEBEDIT program 133 
IEBGENER program 148 
IEBIMAGE program 189 
IEBISAM program 240 
IEBPTPCH program 249 
ITEBUPDTE program 275 
TEHATLAS program 307 
IEHINITT program 317 
IEHLIST program 333 
ITEHMOVE program 355 
ITEHPROGM program 396 

SYSPRINT statement 
ITEBGENER program 147 

system utility programs 
summary 1 

SYSUT1 DD statement 
IEBCOMPR program 26 


IEBEDIT program 133 
ITEBGENER program 147, 148 
IEBIMAGE program . 189 
IEBISAMN program 240 
IEBPTPCH program 249 
IEBUPDTE program 275 
ITEHATLAS program 307 
TEHMOVE program 355 
IFHSTATR program 420 
SYSUT2 DD statement 
TEBCOMPR program 26 
IEBEDIT program 133 
IEBGENER program 147, 148 
IEBISAM program 240 
IEBPTPCH program 249 
IEBUPDTE program 275 
IFHSTATR program 420 
SYS1.IMAGELIB data set 
maintaining 170 
storage requirements 169 
SYS1.MAN tape 418 
SYSIL.MANX data set 419 
SYSI].MANY data set 419 
SYS1.VTOCIX data set 336 
TABLE module listing 
IEBDG program 181 
TABLE module structure, IEBIMAGE 


program 179 
TABLE statement 
CGMID parameter 
DELETE parameter 
GCMLIST parameter 
ITEBIMAGE program 
LOC parameter 04 
TAGDT field in formatted VTOC 
listing 430 
tape DD statement 


198 
201 
202 
192 


ITEHMOVE program 357 
tape labels 313 
creating 
examples 321-324 
tapes 





assessing quality in library 418 
TEXT parameter 








cane 





COPYMOD statement 211 
TITLE statement 
IEBPTPCH program 25l 
ITEM parameter 258 
TO parameter 
COPY CATALOG statement 371 
COPY DSGROUP statement 371 
COPY DSNAME statement 37] 
COPY PDS statement 371 
COPY VOLUME statement 37] 
MOVE CATALOG statement 37] 
MOVE DSGROUP statement 371 
MOVE DSNAME statement 371 
MOVE PDS statement 371 
MOVE VOLUME statement 371 
TODD parameter 
COPY CATALOG statement 372 
COPY DSGROUP statement 372 
COPY DSNAME statement 372 
COPY PDS statement 372 
COPY VOLUME statement 372 
MOVE CATALOG statement 372 
MOVE DSGROUP statement 372 
MOVE DSNAME statement 372 
MOVE PDS statement 372 
MOVE VOLUME statement 372 
TOTAL parameter 
ADD statement 290 
CHANGE statement 290 
EXITS statement 157 
REPL statement 290 
REPRO statement 290 
TOTCONV parameter 
PRINT statement 261 
PUNCH statement 261 
track 
assigning an alternate 305 
examples 310-312 
replacing defective 305 
track overflow feature 
JCL for 357 
TRACK statement 
bbbb parameter 309 
cccc parameter 309 
dddd parameter 309 
hhhh parameter 309 
IEHATLAS program 308 
rrkk parameter 09 
S parameter 309 
translate table 
structure in module 179 
truncate left action 114 
truncate right action 114 
TYPE parameter 
ADD statement 407 
EDIT statement 136 
REPLACE statement 407 
TYPORG parameter 
COMPARE statement 29 
PRINT statement 262 
PUNCH statement 262 
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ucS-image parameter 
UCS statement 20 
UCS parameter 
DFN statement 20 
UCS statement 
ICAPRTBL program 18 
ucS-image parameter 20 





UNCATLG parameter 
COPY DSGROUP statement 372 
COPY DSNAME statement 372 
COPY PDS statement 372 
MOVE DSGROUP statement 372 
MOVE DSNAME statement 372 
MOVE PDS statement 372 

UNCATLG statement 
CVOL parameter 404 
DSNAME parameter 404 
JTEHPROGM program 399 

universal character set buffer 
loading 18 

unload operation 
creating sequential data sets 36 
example 93 

UNLOAD parameter 
COPY CATALOG statement 372 
COPY DSGROUP statement 372 
COPY DSNAME statement 372 
COPY PDS statement 372 
COPY VOLUME statement 372 
MOVE CATALOG statement 372 
MOVE DSGROUP statement 372 
MOVE DSNAME statement 372 
MOVE PDS statement 372 
MOVE VOLUME statement 372 

unloaded data set 340 
converting to ISAM data set 

example 244 

copying 349 
moving 

unmovable data set 
copying 349 
moving 

UPDATE parameter 
CHANGE statement 290 
restrictions 278 

updating data set libraries 272 


USED PDS BYTES field in formatted VTOC 


listing 429 

user-information parameter 
END statement 20 
JOB statement 20 

user labels 152 
processing 151, 4%26 

as data set descriptors 426 

treated as data 


user-specified pictures 101, 120 


example 129 
utility control statements 4 
coding 5 
continuing 5 
utility control statements CICAPRTBL) 
DFN 17 


END 18 
FCB 18 
JOB 17 
UCS 18 


utility control statements CIEBCOMPR) 
COMPARE 27 
EXITS 27 
LABELS 28 

utility control statements CIEBCOPY) 
ALTERMOD 51 


COPY 49 

COPYMOD 52 
EXCLUDE 54 
SELECT. 53 


utility control statements CIEBDG) 
CREATE 110 


DSD 107 
END 114 
FD 108 


Index 
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REPEAT 113 
utility control statements 
EDIT 134 
utility control statements 
EXITS 150 
GENERATE 150 
LABELS 151 
MEMBER 151 
RECORD 151 
utility control 
CHARSET 194 
COPYMOD 19] 
FCB 190 
GRAPHIC 193 
INCLUDE 195 
NAME 195 
195 
192 


OPTION 

TABLE 
utility control 

EXITS 252 

LABELS 253 

MEMBER 252 

PRINT 250 

PUNCH 25] 

RECORD 252 

TITLE 251 
utility control 

ADD 277 

ALIAS 284 

CHANGE 277 

DELETE 280 

ENDUP 285 

LABEL 282 

NUMBER 280 

REPL 277 

REPRO 277 
utility control 

TRACK 308 

VTOC 308 
utility control 

INITT 318 
utility control statements 

LISTCTLG 334 

LISTPDS 334 

LISTVTOC 335 
utility control statements 

COPY CATALOG 364% 

COPY DSGROUP 361 

COPY DSNAME 360 

COPY PDS 363 

COPY VOLUME 365 

EXCLUDE 366 

INCLUDE 365 

MOVE CATALOG 363 

MOVE DSGROUP 361 

MOVE DSNAME 360 

MOVE PDS 362 

MOVE VOLUME 364 

REPLACE 367 

SELECT 366 


statements 


statements 


statements 


statements 


statements 


CIEBEDIT) 
CIEBGENER) 


CITEBIMAGE) 


CITEBPTPCH) 


CIEBUPDTE) 


CITEHATLAS) 


CIEHINITT) 
CITEHLIST) 


(TEHMOVE) 


utility control statements CIEHPROGM) 
G02 


ADD 

BLDA 400 
BLDG 401 
BLDX 399 
CATLG 398 | 
CONNECT 401 
DELETEP 403 


DLTA 400 
DLTX 400 
LIST 403 
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RELEASE 401 
RENAME 398 
REPLACE 402 
SCRATCH 397 
UNCATLG 399 

utility program functions 
guide to 8-ll 

utility programs 
introduction 1 
invoking from a problem program 
notational conventions 
restrictions, general 5 
selecting 3 


variable-spanned records 
copying BDAM data sets with 352 
moving BDAM data sets with 352 
verifying a backup copy 
ITEBCOMPR program 24 
vertical line spacing 
IEBIMAGE program 172 
VL parameter 
ATTACH macro 13 
LINK macro 13 
VOL parameter 
ADD statement 408 
CATLG statement 408 
CONNECT statement 408 
DELETEP statement 408 
LISTCTLG statement 336 
LISTPDS statement 356 
LISTVTOC statement 336 
RENAME statement 408 
REPLACE statement 408 
SCRATCH statement 408 
volume 


copying all data sets from 351 

moving all data sets from 351 
volume label set 

placing on magnetic tape 313 


VOLUME parameter 
COPY VOLUME statement 372 
MOVE VOLUME statement 372 
volume size compatibility 
IEHMOVE program 341 
volume table of contents 
See VTOC 
VTOC (volume table of contents) 
listing 327 
dump format 330 
edited format 328 
unedited format 330 
listing entries 335 
example 339 
sample output by IEHLIST program 
VTOC listing, formatted 
See formatted VTOC listing 
YTOC parameter 
SCRATCH statement 408 
VTOC statement 
bbbb parameter 309 
cccc parameter 309 
dddd parameter 309 
hhhh parameter 309 
IEHATLAS program 308 
rrkk parameter 309 


12 


G27 


ene riven, 





pam, 


wait state codes 
ICAPRTIBL program 15 
wave action 115 


Numerics 


2MIND field in formatted VTOC 
listing 430 

22ND ALLOC field in formatted VTOC 
listing 429 

SMIND field in formatted VTOC 
lasting 430 





3800 


FCB Cforms control buffer) module 


structure 173 


3800 
for 
3800 
for 
3800 
G248 


Model 1, GRAPHIC module structure 
183 


Model 3, GRAPHIC module structure 
183 

Printing Subsystem Model 3 195 

FCB Cforms control buffer) module 


structure 173 


4248 


printer 195 
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